ActiveCell.Offset

[rbobcat1]

Can anyone help, I keep getting an error.

Run-time error '13': Type mismatch
when I debug it highlights the below line;
'ActiveCell.Offset(0, -1).Value = ActiveCell.Offset(-1, -1).Value + 1'

Worksheets("report").Activate
Range("d5").Select
Do Until ActiveCell.Value = ""
If ActiveCell.Value <> "" And ActiveCell.Offset(0, -1).Value = "" Then
ActiveCell.Offset(0, -1).Value = ActiveCell.Offset(-1, -1).Value + 1
End If
ActiveCell.Offset(1, 0).Select
Loop
MsgBox ("Data Transferred!")

 

[RoryA]

That would suggest that (at least) one of the cells contains something that can't be converted to a number value.

 

[BarryL]

can you try the below

Sub Macro1()
    With Columns("C:C")
    .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C+1"
    End With
    End Sub

 

[JackDanIce]

Try:

Sub test()

Dim x       As Long
Dim arr()   As Variant

With Sheets("Sheet1")
    x = .Cells(.Rows.Count, 4).End(xlUp).row
    arr = .Cells(5, 3).Resize(x - 4, 2).Value
    
    For x = LBound(arr, 1) To UBound(arr, 1)
        If LenB(arr(x, 2)) > 0 And LenB(arr(x, 1)) = 0 Then
            If x > LBound(arr, 1) Then
                On Error Resume Next
                arr(x, 1) = arr(x - 1, 1) + 1
                On Error GoTo 0
            End If
        End If
    Next x
    
    .Cells(5, 3).Resize(UBound(arr, 1), UBound(arr, 2)).Value = arr
End With

Erase arr

MsgBox ("Data Transfered")

End Sub