Language Basics VisualBasic Script

Sub SetReportInItalics()
    TotalRow = cells(Rows.count, 1).End(xlUp).row
    FinalRow = TotalRow - 1
    range("A1:A" & FinalRow).font.Italic = True
End Sub