Eerst volgende beschikbare cel in een bepaalde rij

[snitsel]

Beste

Het is de bedoeling, als er op de opdrachtknop geklikt wordt, dat ik naar de eerste volgende vrije cel ga in rij 5.
In deze cel dient een woord geplakt te worden. In die zelfde kolom dienen verschillende andere formules geplakt te worden in verschillende rijen er onder.
Dit zijn de formules:

    Range("B5").Value = "Referentie"
    Range("B5").HorizontalAlignment = xlRight
    Range("B7").Value = "Enkel"
    Range("B8").Value = "0"
    Range("B13").FormulaLocal = "=$A$13*0"
    Range("B14").FormulaLocal = "=((B10*2)+B9)*$A$14"
    Range("B15").FormulaLocal = "=ALS(EN(B$7=""Enkel"";OF(B$13="""";B$14=""Metaal""));$A$15;ALS(B$7=""Enkel"";2*$A$15;ALS(EN(B$7=""Dubbel"";OF(B$13="""";B$14=""Metaal""));2*$A$15;ALS(B$7=""Dubbel"";4*$A$15;ONWAAR))))"
    Range("B16").FormulaLocal = "=ALS(EN(B$7=""Enkel"";OF(B$13="""";B$14=""Metaal""));$A$16;ALS(B$7=""Enkel"";2*$A$16;ALS(EN(B$7=""Dubbel"";OF(B$13="""";B$14=""Metaal""));2*$A$16;ALS(B$7=""Dubbel"";4*$A$16;ONWAAR))))"
    Range("B17").FormulaLocal = "=ALS(B$13="""";0;ALS(B$7=""Enkel"";$A$17;ALS(B$7=""Dubbel"";2*$A$17;ONWAAR)))"
    Range("B18").FormulaLocal = "=SOM(B13:B17)"

Het is de bedoeling dat Range("B...")... variabel is volgens de eerst volgende vrije cel in rij 5

Bekijk bijlage Map1.zip

Alvast bedankt voor jullie hulp

 

[snitsel]

Iemand die mij kan verder helpen aub?

 

[snb]

Je kunt het bestand ook inpakken (ZIP) alvorens hier te plaatsen.

 

[snitsel]

Zie eerste bericht die werd aangepast met de bijlage

 

[snb]

Private Sub CommandButton1_Click()
    With Cells(5, 1).CurrentRegion
       .Columns(.Columns.Count).AutoFill .Columns(.Columns.Count).Resize(, 2)
    End With
End Sub