Try this:
Sub Test() Dim lRow as Long Dim sht as WorksheetSet sht = x.Sheets("SheetName")lRow = sht.Cells(sht.Rows.Count, 2).End(xlUp).Rowsht.Range("A2:K"& lRow).CopyEnd Sub↧
Answer by Plagon for How to copy dynamic range in Excel Sheet using vba
↧
