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