Verandering macro

[MacbookPro]

Hallo,

Ik heb een macro geschreven voor een uitverkoop van 3 winkels. Dit werkte goed. Maar nu wil ik ook nog een nieuwe ComboBox toevoegen met de keuze tusse Cash of Bancontact. Nu zou ik naast elke winkel een nieuwe cel willen toevoegen waarin dan Cash of Bancontact komt. Dit lukt mij niet. Wie kan de macro voor mij aanpassen? Dus bij wijze van voorbeeld: Ik tik mijn bedrag in, ik kies de winkel en ik kies de betalingswijze. Dan zou ik in A2 willen zien "Bedrag" en in B2 "Betalingswijze" in C2 komt dan winkel 2 met in D2 de betalingswijze enzovoort!

Bedankt! Olivier

Private Sub Afsluiten_Click()
ActiveWorkbook.Close
End Sub

Private Sub Ok_Click()
    Dim col As String
    Dim bet As String
    Dim myRange As Range

    
    'Find last cell with a value
    col = Winkel.ListIndex + 1
    Set myRange = FindLastRow(col)
    'Go one row deeper
    Set myRange = myRange.Offset(1, 0)
    'Set the amount in the correct column (Winkel.ListIndex + 1)
    myRange.Value = Val(Bedrag)
    myRange.Select
    
End Sub

Private Sub Opslaan_Click()
SaveChanges = True

End Sub

Private Sub UserForm_Initialize()
    Winkel.Style = fmStyleDropDownList
    Betaling.Style = fmStyleDropDownList
    
    Betaling.AddItem "Cash"
    Betaling.AddItem "Bancontact"

    'Add three shops in the same order as in the worksheet
    Winkel.AddItem "New Chico"
    Winkel.AddItem "Polino"
    Winkel.AddItem "Canelle"
End Sub

Function FindLastRow(ByVal col As Integer) As Range
    Dim LastRow As Long
    Dim myRange As Range
    
    Set myRange = Cells(65536, col)
    Set FindLastRow = myRange.End(xlUp)
End Function