Find last row with data and autofit, bold and center align

i need a macro to Find last row with data and autofit, bold and center align all the cells in the row

daillest319,

Here's a simple code that may help you.

Sub Format_LastRow()
Application.ScreenUpdating = False
Dim lrow As Long
lrow = Sheets("Sheet1").Range("A65536").End(xlUp).Row
Range("A2:G" & lrow).Select
    With Selection
        .HorizontalAlignment = xlCenter
    End With
    With Selection.Font
        .FontStyle = "Bold"
    End With
    Columns("A:A").EntireColumn.AutoFit

End Sub

To find the last row of column A - you can use this code line

 Dim lrow as long
lrow = worksheets("Sheet1").range("A" & rows.count).end(xlup).row

To autofit -

 Cells.entirecolumn.autofit

To bold and center align, all you need to do is just record the action and you will get the code.

Hi,

Your code

 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

Try

 Dim lngLastRow As Long

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

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

    lngLastRow = ActiveCell.Row
    range("A"& lngLasRow & ":G" & lngLasRow).select
    'Rows(lngLastRow).Select

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

But the code provided my myself and arlu1201 should do the job.

You can also use this -

 lrow = ActiveSheet.UsedRange.Rows.Count

You can also specify the sheet instead of Activesheet.