Clear data before updating

[Abdulkhadar]

Hello Excel Experts,
I want to add a code to clear all sheets data except sheet main (Sheet Name) from 4th row to last used row before updating the sheets in below VBA.

Sub CopyData()
    Application.ScreenUpdating = False
    Dim bottomA As Long
    bottomA = Range("F" & Rows.Count).End(xlUp).Row
    Dim AccNum As Range
    For Each AccNum In Range("F4:F" & bottomA)
        Sheets(CStr(AccNum)).Cells(Rows.Count, "A").End(xlUp).Offset(1, 0) = AccNum.Offset(0, -4)
        Sheets(CStr(AccNum)).Cells(Rows.Count, "B").End(xlUp).Offset(1, 0) = AccNum.Offset(0, -3)
        Sheets(CStr(AccNum)).Cells(Rows.Count, "C").End(xlUp).Offset(1, 0) = AccNum.Offset(0, -2)
        Sheets(CStr(AccNum)).Cells(Rows.Count, "D").End(xlUp).Offset(1, 0) = AccNum.Offset(0, 1)
        Sheets(CStr(AccNum)).Cells(Rows.Count, "E").End(xlUp).Offset(1, 0) = AccNum.Offset(0, 3)
    Next AccNum
    Application.ScreenUpdating = True
End Sub

Thanks in advance

 

[Peter_SSs]

If this is still basically the same issue as it was 3 years ago except only 5 columns and starting at row 5 instead of row 4 then try

If ws.Name <> "main" And ws.Name <> "RP" Then ws.UsedRange.Offset(4).Resize(, 5).ClearContents

 

[Abdulkhadar]

If this is still basically the same issue as it was 3 years ago except only 5 columns and starting at row 5 instead of row 4 then try

If ws.Name <> "main" And ws.Name <> "RP" Then ws.UsedRange.Offset(4).Resize(, 5).ClearContents

Thanks once again for your quick response........

 

[Peter_SSs]

You're welcome.