VBA excel Macros info

To Find the Last Row.

Dim sht As Worksheet
Dim LastRow As Long
Set sht = ThisWorkbook.Worksheets("Sheet1")

LastRow = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row

 VBA to automatically determine what your column widths should be.  

https://www.thespreadsheetguru.com/the-code-vault/2014/3/25/vba-code-to-autofit-columns