Sub Macro1()
With Sheets(2)
.Range("C1:C" & .Cells(Application.Rows.Count, 3).End(xlUp).Row).Copy Sheets(1).Range("A1")
End With
With Sheets(3)
.Range("D1:D" & .Cells(Application.Rows.Count, 4).End(xlUp).Row).Copy Sheets(1).Cells(Application.Rows.Count, 1).End(xlUp).Offset(1, 0)
End With
End Sub