copy Visible columns from A to U the last row

[Rfcolon428]

Dim wb As Workbook
Dim sht As Worksheet
Dim LastRow As Long
Dim destwb As Workbook
Dim destsht As Worksheet
Dim destLR As Long
Dim rng As Range




Set wb = ThisWorkbook
Set sht = wb.Sheets("Open PO Raw Data")
Set destwb = Workbooks.Open("C:\Users\name\Desktop\ALL PO RAW DATA 1-18 to present.xlsx")
destLR = Cells(Rows.Count, "A").End(xlUp).Row


MsgBox destLR




ThisWorkbook.ActiveSheet.Activate
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
MsgBox LastRow
Columns("A2:U" & LastRow).SpecialCells(xlCellTypeVisible).Copy

 

[DanteAmor]

Try the following

Dim wb As Workbook
Dim sht As Worksheet, destsht As Worksheet
Dim destLR As Long, LastRow As Long


Set wb = ThisWorkbook
Set sht = wb.Sheets("Open PO Raw Data")
LastRow = sht.Cells(Rows.Count, "A").End(xlUp).Row


Set destwb = Workbooks.Open("C:\Users\name\Desktop\ALL PO RAW DATA 1-18 to present.xlsx")
Set destsht = destwb.Sheets(1)
destLR = destsht.Cells(Rows.Count, "A").End(xlUp).Row + 1


sht.Range("A2:U" & LastRow).SpecialCells(xlCellTypeVisible).Copy destsht.Range("A" & destLR)


destwb.Save
destwb.Close