Creating Marco for varying number of sheets

Sorry i have updated my original post. The Marco code that i posted earlier, just deletes/formats rows and columns of source data. The only thing i looking for is a macro that will format the data on Sheet1 , Sheet2,...... SheetN, at the "same time", (Right now the data is formatted on each sheet "Individually") without impacting AA, BB, CC, & DD. Also i have tried using the below code, but its impacting AA,BB,CC, & DD sheets, which i do not want.

Sub fm_tr()
Dim xsheet As Worksheet
For Each xsheet In ThisWorkbook.Worksheets
 xsheet.Select
'
'
 MY code here 
 '
 '
 '
 '
 Next xsheet
 
End Sub