Aufrunden auf halbe und ganze in WENN-Formel

Sub Makro1
Range("BZ3").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-1]>RC[-40],RC[-1],RC[-40])"
With ActiveSheet
'letzte Zeile auffinden:
lngLetzte = .UsedRange.Rows.Count + .UsedRange.Row - 1
'Formel aus L2 runterkopieren
.Range(.Cells(3, 78), Cells(lngLetzte, 78)).Formula = .Cells(3, 78).Formula
End With
End Sub