Snasui Excel Forum

Code: Select all

Sub ClsOverScore()
    Dim lastRow As Long
    Dim i As Long, r As Range, j As Long
    With Worksheets("EvaAttib")
        Set r = .Range("D8")
        Do While r.Offset(i, 0).Value <> ""
            i = i + 1
        Loop
          lastRow = r.Offset(i - 1, 0).Row
        If Selection.Row <= lastRow Then
            .Range(Selection, .Cells(lastRow, Selection.Column)).Value = ""
            If Selection.Offset(0, 1).Locked Then Exit Sub
            Selection.Offset(0, 1).Select
        End If
        End With
End Sub

Code: Select all

'Other code
With Worksheets("EvaAttib")
    Set r = .Range("D8")
    Do While r.Offset(i, 0).Value <> ""
        i = i + 1
    Loop
    .Range(r.Offset(i, 1), .Range("l" & .Rows.Count).End(xlUp)).ClearContents
'        lastRow = r.Offset(i - 1, 0).Row
'        If Selection.Row <= lastRow Then
'            .Range(Selection, .Cells(lastRow, Selection.Column)).Value = ""
'            If Selection.Offset(0, 1).Locked Then Exit Sub
'            Selection.Offset(0, 1).Select
'        End If
End With
'Other code