This is basically designed to format/bold/fill whatever cell has a value greater than 0. I would appreciate some help in simplifying it so that it doesn't lag as much.Public Sub basesheet()Dim ws As WorksheetDim icounter As LongDim wso As WorksheetDim rw As LongDim lastrow As LongSet wso = Sheets(Base sheet(Oyin))    wso.Select    lastrow = wso.Cells(Rows.Count, 4).End(xlUp).Row            For icounter = 6 To lastrow                If wso.Cells(icounter, 2) > 0 Then                wso.Cells(icounter, 2).Interior.Color = RGB(189, 215, 238)                wso.Cells(icounter, 2).Font.Bold = True                wso.Cells(icounter, 2).HorizontalAlignment = xlCenter                wso.Cells(icounter, 2).VerticalAlignment = xlCenter                wso.Cells(icounter, 2).Borders.LineStyle = xlContinuous                End If                If wso.Cells(icounter, 3) > 0 Then                wso.Cells(icounter, 3).Interior.Color = RGB(189, 215, 238)                wso.Cells(icounter, 3).Font.Bold = True                wso.Cells(icounter, 3).HorizontalAlignment = xlCenter                wso.Cells(icounter, 3).VerticalAlignment = xlCenter                wso.Cells(icounter, 3).Borders.LineStyle = xlContinuous                 End If                If wso.Cells(icounter, 5) > 0 Then                wso.Cells(icounter, 5).Interior.Color = RGB(189, 215, 238)                wso.Cells(icounter, 5).Font.Bold = True                wso.Cells(icounter, 5).HorizontalAlignment = xlCenter                wso.Cells(icounter, 5).VerticalAlignment = xlCenter                wso.Cells(icounter, 5).Borders.LineStyle = xlContinuous                 End If                If wso.Cells(icounter, 6) > 0 Then                wso.Cells(icounter, 6).Interior.Color = RGB(189, 215, 238)                wso.Cells(icounter, 6).Font.Bold = True                wso.Cells(icounter, 6).HorizontalAlignment = xlCenter                wso.Cells(icounter, 6).VerticalAlignment = xlCenter                wso.Cells(icounter, 6).Borders.LineStyle = xlContinuous                 End If                If wso.Cells(icounter, 7) > 0 Then                wso.Cells(icounter, 7).Interior.Color = RGB(189, 215, 238)                wso.Cells(icounter, 7).Font.Bold = True                wso.Cells(icounter, 7).HorizontalAlignment = xlCenter                wso.Cells(icounter, 7).VerticalAlignment = xlCenter                wso.Cells(icounter, 7).Borders.LineStyle = xlContinuous                 End If                If wso.Cells(icounter, 14) > 0 Then                wso.Cells(icounter, 14).Interior.Color = RGB(189, 215, 238)                wso.Cells(icounter, 14).Font.Bold = True                wso.Cells(icounter, 14).HorizontalAlignment = xlCenter                wso.Cells(icounter, 14).VerticalAlignment = xlCenter                wso.Cells(icounter, 14).Borders.LineStyle = xlContinuous                 End If                If wso.Cells(icounter, 16) > 0 Then                wso.Cells(icounter, 16).Interior.Color = RGB(189, 215, 238)                wso.Cells(icounter, 16).Font.Bold = True                wso.Cells(icounter, 16).HorizontalAlignment = xlCenter                wso.Cells(icounter, 16).VerticalAlignment = xlCenter                wso.Cells(icounter, 16).Borders.LineStyle = xlContinuous                 End If                If wso.Cells(icounter, 17) > 0 Then                wso.Cells(icounter, 17).Interior.Color = RGB(189, 215, 238)                wso.Cells(icounter, 17).Font.Bold = True                wso.Cells(icounter, 17).HorizontalAlignment = xlCenter                wso.Cells(icounter, 17).VerticalAlignment = xlCenter                wso.Cells(icounter, 17).Borders.LineStyle = xlContinuous                 End If                 If wso.Cells(icounter, 18) > 0 Then                wso.Cells(icounter, 18).Interior.Color = RGB(189, 215, 238)                wso.Cells(icounter, 18).Font.Bold = True                wso.Cells(icounter, 18).HorizontalAlignment = xlCenter                wso.Cells(icounter, 18).VerticalAlignment = xlCenter                wso.Cells(icounter, 18).Borders.LineStyle = xlContinuous                 End If                If wso.Cells(icounter, 19) > 0 Then                wso.Cells(icounter, 19).Interior.Color = RGB(189, 215, 238)                wso.Cells(icounter, 19).Font.Bold = True                wso.Cells(icounter, 19).HorizontalAlignment = xlCenter                wso.Cells(icounter, 19).VerticalAlignment = xlCenter                wso.Cells(icounter, 19).Borders.LineStyle = xlContinuous                 End If                  If wso.Cells(icounter, 20) > 0 Then                wso.Cells(icounter, 20).Interior.Color = RGB(189, 215, 238)                wso.Cells(icounter, 20).Font.Bold = True                wso.Cells(icounter, 20).HorizontalAlignment = xlCenter                wso.Cells(icounter, 20).VerticalAlignment = xlCenter                wso.Cells(icounter, 20).Borders.LineStyle = xlContinuous                 End If                If wso.Cells(icounter, 21) > 0 Then                wso.Cells(icounter, 21).Interior.Color = RGB(189, 215, 238)                wso.Cells(icounter, 21).Font.Bold = True                wso.Cells(icounter, 21).HorizontalAlignment = xlCenter                wso.Cells(icounter, 21).VerticalAlignment = xlCenterwso.Cells(icounter, 21).Borders.LineStyle = xlContinuous                 End IfIf wso.Cells(icounter, 22) > 0 Then                wso.Cells(icounter, 22).Interior.Color = RGB(189, 215, 238)                wso.Cells(icounter, 22).Font.Bold = True                wso.Cells(icounter, 22).HorizontalAlignment = xlCenter                wso.Cells(icounter, 22).VerticalAlignment = xlCenter                wso.Cells(icounter, 22).Borders.LineStyle = xlContinuous                 End If                If wso.Cells(icounter, 23) > 0 Then                wso.Cells(icounter, 23).Interior.Color = RGB(189, 215, 238)                wso.Cells(icounter, 23).Font.Bold = True                wso.Cells(icounter, 23).HorizontalAlignment = xlCenter                wso.Cells(icounter, 23).VerticalAlignment = xlCenter                wso.Cells(icounter, 23).Borders.LineStyle = xlContinuous                 End If                If wso.Cells(icounter, 25) > 0 Then                wso.Cells(icounter, 25).Interior.Color = RGB(189, 215, 238)                wso.Cells(icounter, 25).Font.Bold = True                wso.Cells(icounter, 25).HorizontalAlignment = xlCenter                wso.Cells(icounter, 25).VerticalAlignment = xlCenter                wso.Cells(icounter, 25).Borders.LineStyle = xlContinuous                 End If                If wso.Cells(icounter, 26) > 0 Then                wso.Cells(icounter, 26).Interior.Color = RGB(189, 215, 238)                wso.Cells(icounter, 26).Font.Bold = True                wso.Cells(icounter, 26).HorizontalAlignment = xlCenter                wso.Cells(icounter, 26).VerticalAlignment = xlCenter                wso.Cells(icounter, 26).Borders.LineStyle = xlContinuous                 End IfIf wso.Cells(icounter, 27) > 0 Then                wso.Cells(icounter, 27).Interior.Color = RGB(189, 215, 238)                wso.Cells(icounter, 27).Font.Bold = True                wso.Cells(icounter, 27).HorizontalAlignment = xlCenter                wso.Cells(icounter, 27).VerticalAlignment = xlCenter                wso.Cells(icounter, 27).Borders.LineStyle = xlContinuous                 End If                If wso.Cells(icounter, 28) > 0 Then                wso.Cells(icounter, 28).Interior.Color = RGB(189, 215, 238)                wso.Cells(icounter, 28).Font.Bold = True                wso.Cells(icounter, 28).HorizontalAlignment = xlCenter                wso.Cells(icounter, 28).VerticalAlignment = xlCenter                wso.Cells(icounter, 28).Borders.LineStyle = xlContinuous                 End If                If wso.Cells(icounter, 29) > 0 Then                wso.Cells(icounter, 29).Interior.Color = RGB(189, 215, 238)                wso.Cells(icounter, 29).Font.Bold = True                wso.Cells(icounter, 29).HorizontalAlignment = xlCenter                wso.Cells(icounter, 29).VerticalAlignment = xlCenter                wso.Cells(icounter, 29).Borders.LineStyle = xlContinuous                 End If                If wso.Cells(icounter, 30) > 0 Then                wso.Cells(icounter, 30).Interior.Color = RGB(189, 215, 238)                wso.Cells(icounter, 30).Font.Bold = True                wso.Cells(icounter, 30).HorizontalAlignment = xlCenter                wso.Cells(icounter, 30).VerticalAlignment = xlCenter                wso.Cells(icounter, 30).Borders.LineStyle = xlContinuous                 End If                 If wso.Cells(icounter, 31) > 0 Then                wso.Cells(icounter, 31).Interior.Color = RGB(189, 215, 238)                wso.Cells(icounter, 31).Font.Bold = True                wso.Cells(icounter, 31).HorizontalAlignment = xlCenter                wso.Cells(icounter, 31).VerticalAlignment = xlCenter                wso.Cells(icounter, 31).Borders.LineStyle = xlContinuous                 End If                If wso.Cells(icounter, 10) > 0 Then                wso.Cells(icounter, 10).Interior.Color = RGB(255, 255, 204)                wso.Cells(icounter, 10).Font.Bold = True                wso.Cells(icounter, 10).HorizontalAlignment = xlCenter                wso.Cells(icounter, 10).VerticalAlignment = xlCenter                wso.Cells(icounter, 10).Borders.LineStyle = xlContinuous                 End If                If wso.Cells(icounter, 24) > 0 Then                wso.Cells(icounter, 24).Interior.Color = RGB(255, 255, 204)                wso.Cells(icounter, 24).Font.Bold = True                wso.Cells(icounter, 24).HorizontalAlignment = xlCenter                wso.Cells(icounter, 24).VerticalAlignment = xlCenter                wso.Cells(icounter, 24).Borders.LineStyle = xlContinuous                 End If                 If wso.Cells(icounter, 4) > 0 Then                wso.Cells(icounter, 4).HorizontalAlignment = xlCenter                wso.Cells(icounter, 4).VerticalAlignment = xlCenter                wso.Cells(icounter, 4).Borders.LineStyle = xlContinuous                 End If If wso.Cells(icounter, 8) > 0 Then                wso.Cells(icounter, 8).HorizontalAlignment = xlCenter                wso.Cells(icounter, 8).VerticalAlignment = xlCenter                wso.Cells(icounter, 8).Borders.LineStyle = xlContinuous                 End If                 If wso.Cells(icounter, 9) > 0 Then                wso.Cells(icounter, 9).HorizontalAlignment = xlCenter                wso.Cells(icounter, 9).VerticalAlignment = xlCenter                wso.Cells(icounter, 9).Borders.LineStyle = xlContinuous                 End If                If wso.Cells(icounter, 11) > 0 Then                wso.Cells(icounter, 11).HorizontalAlignment = xlCenter                wso.Cells(icounter, 11).VerticalAlignment = xlCenter                wso.Cells(icounter, 11).Borders.LineStyle = xlContinuous                 End If                   If wso.Cells(icounter, 12) > 0 Then                wso.Cells(icounter, 12).HorizontalAlignment = xlCenter                wso.Cells(icounter, 12).VerticalAlignment = xlCenter                wso.Cells(icounter, 12).Borders.LineStyle = xlContinuous                 End If                 If wso.Cells(icounter, 13) > 0 Then                wso.Cells(icounter, 13).HorizontalAlignment = xlCenter                wso.Cells(icounter, 13).VerticalAlignment = xlCenter                wso.Cells(icounter, 13).Borders.LineStyle = xlContinuous                 End If                  If wso.Cells(icounter, 15) > 0 Then                wso.Cells(icounter, 15).HorizontalAlignment = xlCenter                wso.Cells(icounter, 15).VerticalAlignment = xlCenterwso.Cells(icounter, 15).Borders.LineStyle = xlContinuous                End If            Next icounterEnd Sub
Formatting/bolding/filling cells with a value greater than 0
excel;vba