Benutzerdefinierten Bereich kopieren und einfügen

Question

Kann mir bitte jemand helfen, einen benutzerdefinierten Bereich zu kopieren und einzufügen. Ich habe die unten, aber aus irgendeinem Grund bekomme ich einen Fehler beim Versuch, die Aktion durchzuführen. Ich vermute, ich vermisse eine winzige Veränderung. Vielen Dank.

Sheets("Sheets1").Select 
Dim lngLastRow2 As Long 

lngLastRow2 = Cells(Rows.Count, "A").End(xlUp).Row 

Worksheets("Sheets2").Range("A3:A" & lngLastRow).Copy _ 
Destination:=ActiveSheet.Range(lngLastRow2) 

Answer 1

Sie tun hier einen Fehler haben:

Destination:=ActiveSheet.Range(lngLastRow2) 

die zu .Range(x) auswertet, wobei x einige Long ist. Was Range benötigt, ist etwas wie .Range("A20").

Eine Lösung ist es

Destination:=ActiveSheet.Range("A" & lngLastRow2) 

Oder eine andere Lösung zu ändern, anstatt eine Range Variable verwenden:

Dim lastRow As Range 
Set lastRow = ThisWorkbook.Worksheets("Sheet1").Cells(Rows.Count, "A").End(xlUp) 
With ThisWorkbook.Worksheets("Sheet2") 
    .Range("A3:A" & lastRow.Row).Copy Destination:=.Range(lastRow.Address) 
End With