Sub InsertIntoEnd() Dim last_row As Long last_row = Cells(Rows.Count, "A").End(xlUp).Row Range("F1").Copy Destination:=Cells(last_row + 1, "A") End Sub.
確定! 回上一頁