VBA excel Makro If-Schleife kürzen,if>30,rot mark

Sub Makro15_Differenzen_markieren()
'Markiert Zellen rot, wenn Differenzen > 30
ActiveSheet.Select
'Startzeile
startzeile = 3
'Spalte die geprüft wird
Spalte = 83
startzeile2 = 3
Letzte_Zeile = Range(Cells(65536, Spalte), Cells(65536, Spalte)).End(xlUp).Row
For i = startzeile To Letzte_Zeile
If ActiveSheet.Cells(i, Spalte) >= 30 And ActiveSheet.Cells(i, Spalte)  "" Then
ActiveSheet.Range("CE" & i).Select
Selection.Interior.ColorIndex = 3
Else
End If
Next
End Sub

Sub Makro16_Differenzen_markieren()
'Markiert Zellen rot, wenn Differenzen > 30
ActiveSheet.Select
'Startzeile
startzeile = 3
'Spalte die geprüft wird
Spalte2 = 87
startzeile2 = 3
Letzte_Zeile = Range(Cells(65536, Spalte2), Cells(65536, Spalte2)).End(xlUp).Row
For i = startzeile To Letzte_Zeile
If ActiveSheet.Cells(i, Spalte2) >= 30 And ActiveSheet.Cells(i, Spalte2)  "" Then
ActiveSheet.Range("CI" & i).Select
Selection.Interior.ColorIndex = 3
Else
End If
Next
End Sub