Thanks i started using this code but cant seem to figure out how to make not only look just in column A but in all columns for the last row becuase some of the cells have empty data. For example the last row had A,B,C etc blank and the data starts at column G.



    Dim lngLastRow As Long

    'Range("A1").Select
    'Range(Selection, Selection.End(xlDown)).Select

    Range("A1").End(xlDown).Select

    lngLastRow = ActiveCell.Row

    Rows(lngLastRow).Select

    Selection.Font.Bold = True
    Cells(lngLastRow, "A").Select