amend code to clear contents and format in vba except row 1 in specific sheets

Option Explicit
Sub clearme()

Dim ws As Worksheet
Application.ScreenUpdating = 0

 For Each ws In Sheets(Array("data 1", "data 2"))

    With ws
    
        .Rows("2:" & .Rows.Count).ClearContents
    
    End With

 Next
 Application.ScreenUpdating = True
End Sub

try this:

Option Explicit

Sub clearShts()
    Dim w1 As Worksheet, w2 As Worksheet
    Dim lr As Long
    Set w1 = Sheets("data 1")
    Set w2 = Sheets("data 2")
    With w1
        lr = .Range("A" & Rows.Count).End(xlUp).Row
        .Range("A2:O" & lr).ClearContents
    End With
    With w2
        lr = .Range("A" & Rows.Count).End(xlUp).Row
        .Range("A2:G" & lr).ClearContents
    End With
End Sub