VBA: Kopieren Sie unter Zeile 3 und fügen Sie am unteren Rand eines anderen Blattes

Question

Ich möchte alle Zeilen unter Zeile 3 in Blatt 2 kopieren und unter der letzten Zeile in Blatt 1 einfügen. Ich möchte nicht 'Aktives Blatt' wie verwenden ich habe unten gibt es eine andere Möglichkeit, dies zu erreichen

(Dies funktioniert nicht.):?

Rows("3:3").Select 
Range(Selection, Selection.End(x1Down)).Select 
Selection.Copy 

Sheets("sheet1").Select 
Range(Selection, Selection.End(x1Down)).Select 
ActiveSheet.Paste 

Answer 1

Dim ws as Worksheet 
Set ws = Worksheets("mySheet") 'change name as needed 

With ws 
    'assumes data is in a "table" format with all data rows in column A and data columns in row 1 
    Dim lRow as Long, lCol as Long 
    lRow = .Range("A" & .Rows.Count).End(xlUp).Row 
    lCol = .Cells(1,.Columns.Count).End(xlToLeft).Column 

    .Range(.Range("A4"),.Cells(lRow,lCol)).Copy _ 
    Worksheets("Sheet1").Range("A" & .Rows.Count).End(xlUp).Offset(1) 

End With