Hi
I look for way to copy to the bottom repeatedly
the code will overwrite for old data when run macro more one time , but what I want keep old data and copy under old data . should not replace , just continue copy to the bottom
Sub ge_tdata()
Dim ar
With Application.FileDialog(msoFileDialogFilePicker)
If .Show Then
With GetObject(.SelectedItems(1))
ar = .Sheets(5).Range("g2:i100").Value
ThisWorkbook.Sheets("sheet1").Cells(2, 2).Resize(UBound(ar), UBound(ar, 2)) = ar
.Close 0
End With
End If
End With
End Sub