Snasui Excel Forum

Code: Select all

Sub UndoScore()
Application.ScreenUpdating = False
    With Sheets("Sheet2")
       Range("B" & Rows.Count).End(xlUp).Resize(1, 5).ClearContents
    End With
Application.ScreenUpdating = True 
End Sub

Code: Select all

Application.ScreenUpdating = False
With Sheets("Data")
    If .Range("b" & .Rows.Count).End(xlUp).Row = 2 Then Exit Sub
    .Range("B" & .Rows.Count).End(xlUp).Resize(1, 6).ClearContents
End With
Application.ScreenUpdating = True