Macro to clear spreadsheets

Dim i As Integer
        For i = 2 To 9
            Worksheets(i).UsedRange.Offset(1).Clear
        Next i