問題 Part2~
圖四

請問 如果我需要
Sheet 11的資料 自動導入到SheetAA的第一個空白列(Sheet 11固定一列)
Sheet 22的資料 自動導入到SheetBB的第一個空白列(Sheet 22列數不一定)

Sub Main()
Sheets("AA ").Select
Range("A65535").End(xlUp).Offset(1, 0).Select

ActiveCell.Value = Sheets("11").Range("A1").Value
ActiveCell.Offset(0, 1).Value = Sheets("11").Range("B1").Value
ActiveCell.Offset(0, 2).Value = Sheets("11").Range("C1").Value
ActiveCell.Offset(0, 3).Value = Sheets("11").Range("D1").Value
ActiveCell.Offset(0, 4).Value = Sheets("11").Range("E1").Value

Sheets("BB ").Select
Range("A65535").End(xlUp).Offset(1, 0).Select
ActiveCell.Value = Sheets("22").Range("A1").Value
ActiveCell.Offset(0, 1).Value = Sheets("22").Range("B1").Value
ActiveCell.Offset(0, 2).Value = Sheets("22").Range("C1").Value
ActiveCell.Offset(0, 3).Value = Sheets("22").Range("D1").Value
ActiveCell.Offset(0, 4).Value = Sheets("22").Range("E1").Value
ActiveCell.Offset(1, 1).Value = Sheets("22").Range("B1").Value
ActiveCell.Offset(1, 2).Value = Sheets("22").Range("C1").Value
ActiveCell.Offset(1, 3).Value = Sheets("22").Range("D1").Value
ActiveCell.Offset(1, 4).Value = Sheets("22").Range("E1").Value
.......依此類推
請問是這樣寫嗎?