Amend Code to clear Data using Current Region

[howard]

I have the following code below to clear data on sheets 2 onwards using Current Region

The range is from A6 to last row containing data in Col S

Cols I & Q are a blank column so data is only cleared up to Col H


It would be appreciated if someone could kindly amend my code

 Sub Clear_+Data()
Dim I As Long
For I = 2 To Sheets.Count
    Sheets(I).Cells(6, 1).CurrentRegion.ClearContents
Next I
End Sub

 

[dmt32]

Hi,
try

Sub Clear_Data()
    Dim i As Long, lastrow As Long
    
    For i = 2 To Worksheets.Count
        With Worksheets(i)
            lastrow = .Cells(.Rows.Count, "S").End(xlUp).Row
            .Cells(6, 1).Resize(lastrow - 5, 19).ClearContents
        End With
    Next i
End Sub

Dave

 

[howard]

Thanks for the help Dave

 

[dmt32]

welcome - glad suggestion helped - appreciate feedback

Dave