How to fix this error in Excel?

Question

Macros

This error is thrown. As I understand it, he does not like the type. Do not tell me how to fix it?

Answer 1

Works. Dim j As Integer

Sub ololo()
    Sheets("List").Select
    Dim j As Integer
    j = 1
    Do Until Range("A" & j) = ""
        Range("B" & j) = CDate(Range("A" & j)) + 14
        Range("C" & j) = CDate(Range("A" & j)) + 21
        j = j + 1
    Loop
End Sub

With error handling:

Sub ololo()
On Error GoTo WTF
    Sheets("List").Select
    Dim j As Integer
    j = 1
    Do Until Range("A" & j) = ""
        Range("B" & j) = CDate(Range("A" & j)) + 14
        Range("C" & j) = CDate(Range("A" & j)) + 21
        j = j + 1
    Loop
    MsgBox ("No errors! Success!")
    GoTo StopThisShit:
WTF:
    MsgBox ("ololo!!! Error there: " & Str(j))
    Range("B" & j) = "ololo"
    Range("C" & j) = "ololo"
    Resume Next
StopThisShit:
End Sub