Limpar células de Várias Guias

Sub LimparDados_AleVBA()
    Application.ScreenUpdating = False
    Dim ws As Worksheet
    Dim LastRow As Long
    Dim i As Long
    Dim sheetArray As Variant
    sheetArray = Array("Guia1", "Guia2", "Guia3") 'Ajustar conforme sua necessidade
    For i = 0 To UBound(sheetArray)
        For Each ws In Sheets
            If ws.Name = sheetArray(i) Then
                LastRow = Sheets(sheetArray(i)).Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
                Sheets(sheetArray(i)).Range("A2:E" & LastRow).ClearContents 'Ajustar conforme sua necessidade
            End If
        Next ws
    Next i
    Application.ScreenUpdating = True
End Sub