Makro zum Zellen verschieben

Ich möchte gerne ein Makro schreiben, das in einer Schleife Zellen in andere Spalten kopiert. Ich weiß aber nicht, wie ich mit dem curcell-Befehl ganze Zellen selecten bzw. kopieren und wieder einfügen kann. Kann mir da jemand helfen??

Das ist mein Versuch:

Dim hilf As String

For counter = 1 To 3
Set curcell = Worksheets("viewer3").Cells(1, counter)
hilf = (curcell.Value)
Set curcell = Worksheets("viewer3").Cells(2, counter)
curcell.Value = hilf
Next counter