Excel Forum

Code: Select all

Sub ClsOverScore()
    Dim lastRow As Long
    Dim i As Long, r As Range, j As Long
    On Error Resume Next
    With ActiveSheet
        Set r = .Range("F2")
        Do While r.Offset(i, 0).Value <> ""
            i = i + 1
            j = r.Offset(i, 0).Row
        Loop
        lastRow = .Range("F" & .Rows.Count).End(xlUp).Row
        .Range("H" & j, .Range("P" & lastRow)).ClearContents
End With
End Sub

Code: Select all

With ActiveSheet
    .Range("f32", .Range("f32").End(xlUp)).Offset(1, 0).Offset(, 2).Resize(, 9).ClearContents
End With