Macro to clear Data on Selected sheets

[howard]

I have the following code to clear data on selected sheets. I would like to streamline the code to make it neater


It would be appreciated if someone could assist me

 Sub Clear_Data()

Sheets("Sheet1").select
Dim Lr1 As Long
Lr1 = Cells(Rows.Count, "D").Rows.End(xlUp).Row
With Range("D1:E" & Lr1)
.ClearContents
End With
 
 Sheets("Extracted Data").Select
Dim Lr As Long
Lr = Cells(Rows.Count, "A").Rows.End(xlUp).Row
With Range("A1:B" & Lr)
.ClearContents


  End With
Sheets("Output Accounts").Select

With Range("A1:B" & Lr)
.ClearContents


  End With
Sheets("Input Accounts").Select
With Range("A1:B" & Lr)
.ClearContents
End With
Sheets("Consignment Vat").Select


With Range("A1:B" & Lr)
.ClearContents
End With
  


End Sub

 

[JoeMo]

Untested.

 Sub Clear_Data()
 Dim Lr As Long, sh As Worksheet
 Dim Lr1 As Long
Sheets("Sheet1").Select
Lr1 = Cells(Rows.Count, "D").End(xlUp).Row
With Range("D1:E" & Lr1)
.ClearContents
End With
For Each sh In Worksheets(Array("Extracted Data", "Output Accounts", _
    "Input Accounts", "Consignment Vat"))
    Lr = sh.Cells(Rows.Count, "A").End(xlUp).Row
    sh.Range("A1:B" & Lr).ClearContents
Next sh
End Sub

 

[howard]

Thanks for the help, Joe. Code far more streamlined.

 

[Michael M]

Also

Sub Clear_Data()
Sheets("Sheet1").Range("D1:E" & Sheets("Sheet1").Cells(Rows.Count, "D").Rows.End(xlUp).Row).ClearContents
Sheets("Extracted Data").Range("A1:B" & Sheets("Extracted Data").Cells(Rows.Count, "A").Rows.End(xlUp).Row).ClearContents
Sheets("Output Accounts").Range("A1:B" & Sheets("Output Accounts").Cells(Rows.Count, "A").Rows.End(xlUp).Row).ClearContents
Sheets("Input Accounts").Range("A1:B" & Sheets("Input Accounts").Cells(Rows.Count, "A").Rows.End(xlUp).Row).ClearContents
Sheets("Consignment Vat").Range("A1:B" & Sheets("Consignment Vat").Cells(Rows.Count, "A").Rows.End(xlUp).Row).ClearContents
End Sub

 

[howard]

Thanks Michael, much appreciated