Ich würde mich freuen wenn ihr mich weiter helfen könnt.
Der Code unten habe ich geschrieben und funktioniert auch.
Nur möchte ich eigentlich ohne Formatierungen kopieren und Einfügen. Also wirklich nur Werte. Ist das Möglich? Habe es versucht aber leider ohne Erfolg obwohl es sicherlich eine einfache Sache ist?
Grüsse
Robert
Sub CopyTo()
Dim LastRow As Integer
Dim destrange As Range
With Worksheets("Data Entry")
LastRow = .Cells(Cells.Rows.Count, 2).End(xlUp).Row
Worksheets("Data Entry").Range("A3:Z3").Copy .Cells(LastRow + 1, 2)
End With
End Sub