VBA：行3の下にコピーして別のシートの下部に貼り付けます

Question

シート2の行3以下の行をすべてコピーし、シート1の最後の行の下に貼り付けたいと思います。私は以下の持ってこれを達成するための別の方法があります

は（これは動作しません）：。？

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