Macro using end(xlDown) and End(xlToRight))

I have a macro that I found and I need to make some changes. However, I'm not that familiar with VBA so I need some help.


What I need it to do is select range A1 end right and range end down. Maybe like this : "If Range("A1", Range("A1").End(xlDown).End(xlToRight)).Select
I don't know how to put it in the code below.

Goal is to take all the 0 and blank cells and clear them.

Sub Clear_Content()
    
    If VarType(Range("B1")) = vbEmpty Then
        Range("A1").ClearContents
    ElseIf VarType(Range("B1")) = vbString Then
        If Len(Range("B1")) = 0 Then
            Range("A1").ClearContents
        End If
    End If
End Sub