Brug af quartile formula i cell, men cell reference ændrer sig hver gang

Hej Experter


Jeg vil meget gerne kunne via VBA oprette en formula i en celle.

Den skal kunne sætte 3 quartile in i denne celle. Den skal tage alle celler med fra range("B5:B" & lastrow).

I kan se hvor langt jeg er nået i nedenstående. Jeg mangler bare at lave formula koden. Jeg kan ikke finde ud af at lave denne reference i formula på activecell.

sub Test()
Dim lastrow As Long
Range("B5").Activate

Do Until ActiveCell.Value = ""
ActiveCell.Offset(1, 0).Activate
Loop

ActiveCell.Offset(-1, 0).Activate
lastrow = ActiveCell.Row

ActiveCell.Offset(2, 0).Activate

end sub