Aktive Zellenposition relativ um 1 Spalte erhöhen

Ich möchte einige identische Arbeitsschritte automatisieren:
1. Einfügen aus Zwischenablage in aktive Zelle
2. Aktive Zelle um eine Spalte nach rechts
3. In andere Applikation wechseln
4. Dort einen Button betätigen

Bisher habe ich in Visual Basic Editor Schritt 1 und 3 geschafft, aber wie kann ich 2 und 4 realisieren?

1. ActiveSheet.Paste
2. Range("X1").Select <- Wie soll ich das X relativ machen (X++)
3. AppActivate "Andere Anwendung"
4. <- Wie kann ich eine Tasten-Betätigung programmieren?

Bitte um Hilfe.

Matthias