Hi, I am getting the run-time error 1004, pastespecial method of range class failed when I run the code below. It occurs on the line below. But it doesn't occur on other lines in the code that are written the same way. I am attempting to paste values while keeping the formatting. Thanks
wb2.Sheets("QUOTE").Range("F4").PasteSpecial
wb2.Sheets("QUOTE").Range("F4").PasteSpecial
VBA Code:
Sub copyrange4()
Dim wb1 As Workbook
Dim wb2 As Workbook
Dim Pth As String
Dim lr As Long
Set wb1 = ActiveWorkbook
Pth = wb1.path
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Set wb2 = Workbooks.Open("C:\users\" & Environ("username") & "\Desktop\Dropbox\Quotes Steve\quoteprogram2.xlsm")
lr = wb1.Sheets("QUOTE").Range("C" & Rows.Count).End(xlUp).Row 'last row ? if determinable from column C ?
wb1.Worksheets("QUOTE").Range("E1:E3").Copy
wb2.Sheets("QUOTE").Range("E1").PasteSpecial
wb1.Worksheets("QUOTE").Range("D4").Copy
wb2.Sheets("QUOTE").Range("D4").PasteSpecial
wb1.Worksheets("QUOTE").Range("F4").Copy
wb2.Sheets("QUOTE").Range("F4").PasteSpecial
wb1.Worksheets("QUOTE").Range("F6").Copy
wb2.Sheets("QUOTE").Range("F6").PasteSpecial
wb1.Worksheets("QUOTE").Range("F7").Copy
wb2.Sheets("QUOTE").Range("F7").PasteSpecial
wb1.Worksheets("QUOTE").Range("D19:D20").Copy
wb2.Sheets("QUOTE").Range("D19").PasteSpecial
wb1.Worksheets("QUOTE").Range("I21").Copy
wb2.Sheets("QUOTE").Range("I21").PasteSpecial
wb1.Worksheets("QUOTE").Range("K20").Copy
wb2.Sheets("QUOTE").Range("K20").PasteSpecial
wb1.Worksheets("QUOTE").Range("M20").Copy
wb2.Sheets("QUOTE").Range("M20").PasteSpecial
wb1.Worksheets("QUOTE").Range("S21").Copy
wb2.Sheets("QUOTE").Range("S21").PasteSpecial
wb1.Worksheets("QUOTE").Range("EX16:EX17").Copy
wb2.Sheets("QUOTE").Range("EX16").PasteSpecial
wb1.Worksheets("QUOTE").Range("C24:I" & lr).Copy
wb2.Sheets("QUOTE").Range("C24").PasteSpecial
wb1.Worksheets("QUOTE").Range("M22").Copy
wb2.Sheets("QUOTE").Range("M22").PasteSpecial
wb1.Worksheets("QUOTE").Range("M24:M" & lr).Copy
wb2.Sheets("QUOTE").Range("M24").PasteSpecial
wb1.Worksheets("QUOTE").Range("W24:X" & lr).Copy
wb2.Sheets("QUOTE").Range("W24").PasteSpecial
wb1.Worksheets("QUOTE").Range("Z24:AB" & lr).Copy
wb2.Sheets("QUOTE").Range("Z24").PasteSpecial
wb1.Worksheets("QUOTE").Range("AG21").Copy
wb2.Sheets("QUOTE").Range("AG21").PasteSpecial
wb1.Worksheets("QUOTE").Range("AD24:AH" & lr).Copy
wb2.Sheets("QUOTE").Range("AD24").PasteSpecial
wb1.Worksheets("QUOTE").Range("AI21").Copy
wb2.Sheets("QUOTE").Range("AI21").PasteSpecial
wb1.Worksheets("QUOTE").Range("AJ24:AO" & lr).Copy
wb2.Sheets("QUOTE").Range("AJ24").PasteSpecial
wb1.Worksheets("QUOTE").Range("AQ24:BA" & lr).Copy
wb2.Sheets("QUOTE").Range("AQ24").PasteSpecial
wb1.Worksheets("QUOTE").Range("BC24:BC" & lr).Copy
wb2.Sheets("QUOTE").Range("BC24").PasteSpecial
wb1.Worksheets("QUOTE").Range("BE24:BR" & lr).Copy
wb2.Sheets("QUOTE").Range("BE24").PasteSpecial
wb1.Worksheets("QUOTE").Range("BT24:BX" & lr).Copy
wb2.Sheets("QUOTE").Range("BT24").PasteSpecial
wb1.Worksheets("QUOTE").Range("DJ24:DL" & lr).Copy
wb2.Sheets("QUOTE").Range("DJ24").PasteSpecial
wb1.Worksheets("QUOTE").Range("EL24:EM" & lr).Copy
wb2.Sheets("QUOTE").Range("EL24").PasteSpecial
wb1.Worksheets("QUOTE").Range("IY24:JA" & lr).Copy
wb2.Sheets("QUOTE").Range("IY24").PasteSpecial
wb1.Worksheets("QUOTE").Range("KG24:KG" & lr).Copy
wb2.Sheets("QUOTE").Range("KG24").PasteSpecial
Range("C24").Select
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub