VBA Copy/Paste Error

[AlexB123]

Hi all,

I have a macro that runs some calculations and then copies results to another file. However, I'm getting a 438 run-time error stating "Object doesn't support this property or method".

Set dbWB = Workbooks.Open(DBFile)
                Set dbSh1 = dbWB.Sheets("DB_Ready")
            DBlastrow = dbSh1.Rows.Range("A65000").End(xlUp).Row
           
      tmpSh2.Range("A2:I" & Templatelastrow).Copy
            
            dbSh1.Range("A" & DBlastrow + 1).Paste

I attempted to use:

dbSh1.PasteSpecial xlPasteAll

The above change allowed the sub to complete, but my results were pasted to the right of the current region.

Not sure what the issue is ... I feel like it has to do with adding the "+1", but I need the data to be pasted below the last used row.

Any help is appreciated!

 

[JackDanIce]

Try:

Sub Mac1()

    Dim x   As Long
    Dim wkb As Workbook
    
    Set wkb = Workbooks.Open(dbfile)
    With wkb
        .Sheets("DB_Ready").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(Templatelastrow, 9).Value = tmpsh2.Cells(2, 1).Resize(Templatelastrow, 9).Value
    End With
    Set wkb = Nothing
    
End Sub

 

[Fluff]

Try

tmpSh2.Range("A2:I" & Templatelastrow).Copy dbSh1.Range("A" & DBlastrow + 1)

 

[AlexB123]

Fluff, JackDanIce,

Thank you both for your posts! I tested both solutions, and both solve my problem.

Any ideas as to why .paste would not work???

 

[Fluff]

.Paste is a worksheet method, whereas .PasteSpecial is a range method.

 

[JackDanIce]

And you're welcome, glad problem is resolved