Paste data to the empty cell automatically

Question

Hello

My name is Rio

I have a problem

I have a set of data in workbook ("Checking.xlsx") Sheets ("Summary")

I want to copy all data from ("A:C") from those sheet and paste it to ThisWorkbook (Current Workbook that contain VBA Code) in Sheets ("Master Customer") in the empty cell --> I want to paste it in the first empty row or empty cells

Please help me to solve my problem

Thank you

Best regards,

Rio

---

riok58

Answer 1

Sub CopyData()
    Dim wshS As Worksheet ' Source sheet
    Dim wshT As Worksheet ' Target sheet
    Dim lngT As Long      ' First available row on target sheet
    Set wshS = Workbooks("Checking.xlsx").Worksheets("Summary")
    Set wshT = ThisWorkbook.Worksheets("Master Customer")
    lngT = wshT.Cells.Find(What:="*", SearchOrder:=xlByRows, _
        SearchDirection:=xlPrevious).Row + 1
    With wshS
        Intersect(.Range("A:C"), .UsedRange).Copy _
            Destination:=wshT.Range("A" & lngT)
    End With
    Application.CutCopyMode = False
End Sub

---

Regards, Hans Vogelaar (http://www.eileenslounge.com)

Answer 2

It works perfectly

Thank you

---

riok58