Dim Final As Variant Final = Range("A1").End(xlDown).Row With ActiveWorkbook.ActiveSheet.Range("A1:A" & Final & "") .Borders.LineStyle = xlContinuous End With
Dim rcell As Range, rng As Range Set rng = Application.ActiveSheet.Range("D1:D" & Application.ActiveSheet.UsedRange.Rows.Count) For Each rcell In rng.Cells If IsNumeric(rcell.Value) = True Then rcell.Offset(0, 1).Font.Bold = True End If Next rcell