Vermenigvuldigen variabele cel in VBA

[debastaard]

Beste Helpmij'ers

Ik zit met de volgende, waarschijnlijk zeer makkelijke vraag.

Ik wil in VBA een cel met de volgende VBA code:

Dim LastRow As Long

    LastRow = Range("N13:N65536").SpecialCells(xlCellTypeBlanks).Row
    'Range("N" & LastRow).Select
With Range("N" & LastRow).End(xlUp).Offset(1)
.Formula = "=SUM(N13:N" & .Row - 1 & ")"

vermenigvuldigen met een percentage. De uitkomst moet een optelling zijn maal een vermenigvuldiging, en moet in cel N4 komen te staan. Ik heb van alles geprobeerd maar kan er niet uitkomen. Wie heeft er een oplossing?

 

[Wigi]

Zoiets?

Sub vermen()
    Dim LastRow As Long
    LastRow = Range("N" & Rows.Count).End(xlUp).Row
    Range("N" & LastRow + 1).Formula = "=SUM(N13:N" & LastRow - 1 & ")"
    Range("N4").Formula = Range("N" & LastRow + 1) * 50 / 100
End Sub

In het voorbeeld is het 50%. Pas aan indien nodig.

Wigi

 

[debastaard]

Geweldig. Het werkt perfect.
Hartstikke bedankt Wigi!