How to(s)

Put comments?

"'" Single quote

Convert numeric-text in cells to number?

Selection.Value = Selection.Value

Set font of selection?

With Selection.Font

.Color = -16776961 'Red=-16776961 & Green=-11489280.

.TintAndShade = 0

End With

Select till max row with data in sheet.

Dim LastRow As Long

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

Range(Cells(6, 6), Cells(LastRow, 8)).Select

Get max row-count & column-count in active sheet