VBA slet celler der giver fejl i formler

Jeg har et ark med mange linier og 20 kolonner med forskellige data i fire kolonner J, K, T og AN, kan der være alene være tal, men de kan være tomme. 

Men når jeg kører min userform, får jeg fejl i formler fordi disse tomme celler ikke indeholder nogen værdi, hvis jeg sætter indhold til enten 0 eller trykker delete på en celle, så virker min formel.

JEg vil gerne have en macro som jeg efterfølgende kan indsætte i VBA, som enten giver nul værdi eller sletter indholdet. 

Har også forsøgt med: If IsEmpty ......= 0 eller ""

Men kan ikke få noget at det til at virke, håber en kan hjælpe.

Sub slettommeceller()
ActiveCell.Range("F2:f:20000").Select
    Do
    If IsEmpty(ActiveCell) Then
        If IsEmpty(ActiveCell.Offset(0, -1)) And IsEmpty(ActiveCell.Offset(0, -2)) Then
            ActiveCell.Value = ""
        Else
            ActiveCell.FormulaR1C1 = "=Average(RC[-1],RC[-2])"
        End If
    End If
    ActiveCell.Offset(1, 0).Select
    Loop Until IsEmpty(ActiveCell.Offset(0, 1))
End Sub