Question

I have this script, I keep getting an error: Run-time error '1004': Method 'Range' of object _'Worksheet' failed

Here is the script:

Option Explicit
    Sub ONJL()

    Dim lastrow As Long
    Dim wsRD As Worksheet 'Raw Data

    Set wsRD = Sheets("Raw Data")

        With wsRD
            Application.ScreenUpdating = False
            lastrow = wsRD.Range("J:J").End(xlUp).Offset(1, 0)
            wsRD.Range("J" & lastrow).Value = "=Today()"
        End With

    End Sub

I thought this is how you are meant to look up last row, and then paste today’s date on the last cell?

Answer 1

There are several issues:

• when you use with, you need to reference the object with .
• the result of Offset(x,y) is a range, not a number – you are interested in the row, so you need to add .Row
• the End(xlUp) thingy has to start from the last row to work

This is probably what you meant:

Sub ONJL()

    Dim lastrow As Long
    Dim wsRD As Worksheet 'Raw Data

    Set wsRD = Sheets("Raw Data")

    With wsRD
        Application.ScreenUpdating = False
        lastrow = .Range("J" & .Rows.Count).End(xlUp).Row
        .Range("J" & lastrow + 1).Formula = "=Today()"
    End With

End Sub

And don’t forget to turn the screenupdating on somewhere.