Run-time error '1004': PasteSpecial method of Range class failed

[lbrockmeier]

All of a sudden the 2nd part of this coede (where I Paste Special the last part) stopped working! The error i'm getting is "Run-time error '1004': PasteSpecial method of Range class failed

Any suggestions?

Sub Copy_Transpose_Paste_Prices()
'
' Copy & Paste Categories
'
    Dim Last_Row5 As Long
    
    Last_Row5 = Worksheets("VGBB GO&GS Combined - Subclass").Range("A" & Rows.Count).End(xlUp).Row ' Determine the lastrow of the data to copy
    
    
    Worksheets("VGBB GO&GS Combined - Subclass").Range("A3:A3" & Last_Row5).Copy 'Copies A3 to end of the column
    
    Worksheets("VGBB Analysis").Range("B4").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
        
' Copy & Paste Prices


    Dim Last_Row6 As Long
    
    Last_Row6 = Worksheets("VGBB GO&GS Combined - Subclass").Range("E" & Rows.Count).End(xlUp).Row ' Determine the lastrow of the data to copy
        
    Worksheets("VGBB GO&GS Combined - Subclass").Range("E3:P3" & Last_Row5).Copy 'Copies A3 to end of the column
    
Worksheets("VGBB Analysis").Range("B6").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
       
             End Sub

 

[Dryver14]

Transpose = true? is this correct?

 

[RoryA]

Both of your copy lines are actually incorrect. They should be:

    Worksheets("VGBB GO&GS Combined - Subclass").Range("A3:A" & Last_Row5).Copy

and:

    Worksheets("VGBB GO&GS Combined - Subclass").Range("E3:P" & Last_Row5).Copy

and not:

    Worksheets("VGBB GO&GS Combined - Subclass").Range("A3:A3" & Last_Row5).Copy

and:

    Worksheets("VGBB GO&GS Combined - Subclass").Range("E3:P3" & Last_Row5).Copy

 

[lbrockmeier]

I updated it per your code above but its still not working. Still says [h=2]Run-time error '1004': PasteSpecial method of Range class failed[/h]

 

[RoryA]

How much data are you copying? Will it fit transposed onto the other sheet?

 

[lbrockmeier]

Yes just copying 110 rows and 10 columns. It worked previously and I just went to another version of the spreadsheet and the macro worked just fine. Not sure what's going on!

 

[RoryA]

Are you sure you're only copying 110 rows? You know you are using Last_Row5 again for the copy and not Last_Row6?