Excel VBA Paste Issue

Below is my sub routine. The line below is where the code stops every single time with 1004 error message. When I hit “Debug” the sheet seems to populate with the copied data and I continue on with the code without any issues until it comes back to the line again and the same error presents itself. It is like the copy of the values isn’t finished.

‘Sets the active workbook
Set wb = ActiveWorkbook

Plain text
Copy to clipboard
Open code in new window
EnlighterJS 3 Syntax Highlighter
<code>'Finds the last populated row in the of the unique consultants in PDF Data spreadsheet
LastRow = wb.Sheets("Queries").Cells(Rows.Count, 7).End(xlUp).Row
x = 7
Do Until x > LastRow
wb.Sheets("PDF Layout").Range("A3").Value = wb.Sheets("Queries").Range("G" & x).Value
If wb.Sheets("PDF Layout").Range("A3").Value <> "" Then
If wb.Sheets("PDF Layout").Range("A3").Value <> "0" Then
wb.Sheets("PDF Data").Activate
ActiveSheet.ListObjects("PDF_tbl").Range.AutoFilter Field:=2, Criteria1:=wb.Sheets("PDF Layout").Range("A3").Value
PDFDataLastRow = wb.Sheets("Data").Cells(Rows.Count, 1).End(xlUp).Row - 1
wb.Sheets("PDF Layout").Range("A6:N6").Clear
wb.Sheets("PDF Layout").Range("A7:N9999").Delete
wb.Sheets("PDF Data").Range("PDF_tbl[[#All],[Customer ID]:[Total AR]]").Copy Destination:=wb.Sheets("PDF Layout").Range("A5")
'wb.Sheets("PDF Data").Range("C5:P9999").SpecialCells(xlCellTypeVisible).Copy
'wb.Sheets("PDF Layout").Range("A5").PasteSpecial xlPasteAll
'Adds subtotals
**wb.Sheets("PDF Layout").Range("A1").Select**
PDFLayoutLastRow = wb.Sheets("PDF Layout").Cells(Rows.Count, 1).End(xlUp).Row
wb.Sheets("PDF Layout").Range("A5:N" & PDFLayoutLastRow).Select
Selection.Subtotal GroupBy:=2, Function:=xlSum, TotalList:=Array(8, 9, 10, 11, 12, 13, 14), Replace:=True, Pagebreaks:=False, SummaryBelowData:=True
wb.Sheets("PDF Layout").Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="Z:BenFAgingPDF" & Replace(Replace(wb.Sheets("PDF Layout").Range("A3").Value, ",", ""), ".", "") & "_" & Format(Now, "yyyymmdd") & ".pdf"
Set wbCopy = Workbooks.Add
wb.Sheets("PDF Layout").Copy Before:=wbCopy.Sheets(1)
wbCopy.SaveAs "Z:BenFAgingExcel" & Replace(Replace(wb.Sheets("PDF Layout").Range("A3").Value, ",", ""), ".", "") & "_" & Format(Now, "yyyymmdd") & ".xlsx"
wbCopy.Close
End If
End If
x = x + 1
Loop
MsgBox "Excel and PDF files have been created.", vbOKOnly
</code>
<code>'Finds the last populated row in the of the unique consultants in PDF Data spreadsheet LastRow = wb.Sheets("Queries").Cells(Rows.Count, 7).End(xlUp).Row x = 7 Do Until x > LastRow wb.Sheets("PDF Layout").Range("A3").Value = wb.Sheets("Queries").Range("G" & x).Value If wb.Sheets("PDF Layout").Range("A3").Value <> "" Then If wb.Sheets("PDF Layout").Range("A3").Value <> "0" Then wb.Sheets("PDF Data").Activate ActiveSheet.ListObjects("PDF_tbl").Range.AutoFilter Field:=2, Criteria1:=wb.Sheets("PDF Layout").Range("A3").Value PDFDataLastRow = wb.Sheets("Data").Cells(Rows.Count, 1).End(xlUp).Row - 1 wb.Sheets("PDF Layout").Range("A6:N6").Clear wb.Sheets("PDF Layout").Range("A7:N9999").Delete wb.Sheets("PDF Data").Range("PDF_tbl[[#All],[Customer ID]:[Total AR]]").Copy Destination:=wb.Sheets("PDF Layout").Range("A5") 'wb.Sheets("PDF Data").Range("C5:P9999").SpecialCells(xlCellTypeVisible).Copy 'wb.Sheets("PDF Layout").Range("A5").PasteSpecial xlPasteAll 'Adds subtotals **wb.Sheets("PDF Layout").Range("A1").Select** PDFLayoutLastRow = wb.Sheets("PDF Layout").Cells(Rows.Count, 1).End(xlUp).Row wb.Sheets("PDF Layout").Range("A5:N" & PDFLayoutLastRow).Select Selection.Subtotal GroupBy:=2, Function:=xlSum, TotalList:=Array(8, 9, 10, 11, 12, 13, 14), Replace:=True, Pagebreaks:=False, SummaryBelowData:=True wb.Sheets("PDF Layout").Activate ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="Z:BenFAgingPDF" & Replace(Replace(wb.Sheets("PDF Layout").Range("A3").Value, ",", ""), ".", "") & "_" & Format(Now, "yyyymmdd") & ".pdf" Set wbCopy = Workbooks.Add wb.Sheets("PDF Layout").Copy Before:=wbCopy.Sheets(1) wbCopy.SaveAs "Z:BenFAgingExcel" & Replace(Replace(wb.Sheets("PDF Layout").Range("A3").Value, ",", ""), ".", "") & "_" & Format(Now, "yyyymmdd") & ".xlsx" wbCopy.Close End If End If x = x + 1 Loop MsgBox "Excel and PDF files have been created.", vbOKOnly </code>
'Finds the last populated row in the of the unique consultants in PDF Data spreadsheet
LastRow = wb.Sheets("Queries").Cells(Rows.Count, 7).End(xlUp).Row

x = 7

Do Until x > LastRow
    wb.Sheets("PDF Layout").Range("A3").Value = wb.Sheets("Queries").Range("G" & x).Value
    
    If wb.Sheets("PDF Layout").Range("A3").Value <> "" Then
        If wb.Sheets("PDF Layout").Range("A3").Value <> "0" Then
            wb.Sheets("PDF Data").Activate
            ActiveSheet.ListObjects("PDF_tbl").Range.AutoFilter Field:=2, Criteria1:=wb.Sheets("PDF Layout").Range("A3").Value
            
            PDFDataLastRow = wb.Sheets("Data").Cells(Rows.Count, 1).End(xlUp).Row - 1
            
            wb.Sheets("PDF Layout").Range("A6:N6").Clear
            wb.Sheets("PDF Layout").Range("A7:N9999").Delete
            wb.Sheets("PDF Data").Range("PDF_tbl[[#All],[Customer ID]:[Total AR]]").Copy Destination:=wb.Sheets("PDF Layout").Range("A5")
            'wb.Sheets("PDF Data").Range("C5:P9999").SpecialCells(xlCellTypeVisible).Copy
            'wb.Sheets("PDF Layout").Range("A5").PasteSpecial xlPasteAll
            
            'Adds subtotals
            **wb.Sheets("PDF Layout").Range("A1").Select**
            PDFLayoutLastRow = wb.Sheets("PDF Layout").Cells(Rows.Count, 1).End(xlUp).Row
            wb.Sheets("PDF Layout").Range("A5:N" & PDFLayoutLastRow).Select
            Selection.Subtotal GroupBy:=2, Function:=xlSum, TotalList:=Array(8, 9, 10, 11, 12, 13, 14), Replace:=True, Pagebreaks:=False, SummaryBelowData:=True
            
            wb.Sheets("PDF Layout").Activate
            ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="Z:BenFAgingPDF" & Replace(Replace(wb.Sheets("PDF Layout").Range("A3").Value, ",", ""), ".", "") & "_" & Format(Now, "yyyymmdd") & ".pdf"
            
            Set wbCopy = Workbooks.Add
            wb.Sheets("PDF Layout").Copy Before:=wbCopy.Sheets(1)
            wbCopy.SaveAs "Z:BenFAgingExcel" & Replace(Replace(wb.Sheets("PDF Layout").Range("A3").Value, ",", ""), ".", "") & "_" & Format(Now, "yyyymmdd") & ".xlsx"
            wbCopy.Close
        End If
    End If
        
    x = x + 1
Loop

MsgBox "Excel and PDF files have been created.", vbOKOnly

Expectation is that the bolded line will work. I tried placing other lines there that interact with the same worksheet and it still errors out. It is almost as if the paste isn’t finished.

New contributor

Benjamin Frazier is a new contributor to this site. Take care in asking for clarification, commenting, and answering.
Check out our Code of Conduct.

1

Trang chủ Giới thiệu Sinh nhật bé trai Sinh nhật bé gái Tổ chức sự kiện Biểu diễn giải trí Dịch vụ khác Trang trí tiệc cưới Tổ chức khai trương Tư vấn dịch vụ Thư viện ảnh Tin tức - sự kiện Liên hệ Chú hề sinh nhật Trang trí YEAR END PARTY công ty Trang trí tất niên cuối năm Trang trí tất niên xu hướng mới nhất Trang trí sinh nhật bé trai Hải Đăng Trang trí sinh nhật bé Khánh Vân Trang trí sinh nhật Bích Ngân Trang trí sinh nhật bé Thanh Trang Thuê ông già Noel phát quà Biểu diễn xiếc khỉ Xiếc quay đĩa Dịch vụ tổ chức sự kiện 5 sao Thông tin về chúng tôi Dịch vụ sinh nhật bé trai Dịch vụ sinh nhật bé gái Sự kiện trọn gói Các tiết mục giải trí Dịch vụ bổ trợ Tiệc cưới sang trọng Dịch vụ khai trương Tư vấn tổ chức sự kiện Hình ảnh sự kiện Cập nhật tin tức Liên hệ ngay Thuê chú hề chuyên nghiệp Tiệc tất niên cho công ty Trang trí tiệc cuối năm Tiệc tất niên độc đáo Sinh nhật bé Hải Đăng Sinh nhật đáng yêu bé Khánh Vân Sinh nhật sang trọng Bích Ngân Tiệc sinh nhật bé Thanh Trang Dịch vụ ông già Noel Xiếc thú vui nhộn Biểu diễn xiếc quay đĩa Dịch vụ tổ chức tiệc uy tín Khám phá dịch vụ của chúng tôi Tiệc sinh nhật cho bé trai Trang trí tiệc cho bé gái Gói sự kiện chuyên nghiệp Chương trình giải trí hấp dẫn Dịch vụ hỗ trợ sự kiện Trang trí tiệc cưới đẹp Khởi đầu thành công với khai trương Chuyên gia tư vấn sự kiện Xem ảnh các sự kiện đẹp Tin mới về sự kiện Kết nối với đội ngũ chuyên gia Chú hề vui nhộn cho tiệc sinh nhật Ý tưởng tiệc cuối năm Tất niên độc đáo Trang trí tiệc hiện đại Tổ chức sinh nhật cho Hải Đăng Sinh nhật độc quyền Khánh Vân Phong cách tiệc Bích Ngân Trang trí tiệc bé Thanh Trang Thuê dịch vụ ông già Noel chuyên nghiệp Xem xiếc khỉ đặc sắc Xiếc quay đĩa thú vị
Trang chủ Giới thiệu Sinh nhật bé trai Sinh nhật bé gái Tổ chức sự kiện Biểu diễn giải trí Dịch vụ khác Trang trí tiệc cưới Tổ chức khai trương Tư vấn dịch vụ Thư viện ảnh Tin tức - sự kiện Liên hệ Chú hề sinh nhật Trang trí YEAR END PARTY công ty Trang trí tất niên cuối năm Trang trí tất niên xu hướng mới nhất Trang trí sinh nhật bé trai Hải Đăng Trang trí sinh nhật bé Khánh Vân Trang trí sinh nhật Bích Ngân Trang trí sinh nhật bé Thanh Trang Thuê ông già Noel phát quà Biểu diễn xiếc khỉ Xiếc quay đĩa
Thiết kế website Thiết kế website Thiết kế website Cách kháng tài khoản quảng cáo Mua bán Fanpage Facebook Dịch vụ SEO Tổ chức sinh nhật