Snasui Excel Forum

Code: Select all

    If Range("B30") <> "" Then
        Range("B30:S30").Select
        Range(Selection, Selection.End(xlDown)).Select
        Selection.Delete Shift:=xlUp
    End If

Code: Select all

If Range("B31") <> "" Then
    Range("B30:S30").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Delete Shift:=xlUp
Else
    Range("B30:S30").ClearContents
End If

Code: Select all

Sheets("Cool").Select
If Range("B30") <> "" And Range("B31") <> "" Then
    Range("B30:S30").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Delete Shift:=xlUp
End If
If Range("B30") <> "" And Range("B31") = "" Then
    Range("B30:S30").Select
    Selection.Delete Shift:=xlUp
End If