So sieht mein Code aus, vielleicht hilft das ?
' Lg_Kopieren Makro
'
'
Selection.Copy
Range("A30").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
End Sub
Beim nächsten ausführen soll er dann die nächsten Werte unten
ansetzen. usw usw
Gruß Thomas