Macro to insert no. of rows based on the last row count

Regular Contributor

How do i create a macro to insert the number of rows based on a lastRow from the source wb into my dest wb after last row of EBS in the dest wb ?

 

    Dim wslastRow   As Long    
    Dim DestlastRow As Long

    wslastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
    DestlastRow = Destws.Range("D:D").Find(What:="EBS", After:=Destws.Range("D1"), SearchDirection:=xlPrevious).Row

 

appreciate the help and assistance in advance

0 Replies