Goedenavond beste leden,

Ik heb een VBA code welke goed werkt. Alleen na het invullen van m'n UserForm schrijft deze code de ingevulde gegevens van het UserForm iedere keer weg naar de eerstvolgende vrije onderstaande rij.

Kan deze code ook aangepast worden zodat het ingevulde steeds in dezelfde rij wordt overschreven?

Zoals ik al zei, de code voldoet prima alleen zou ik graag zien dat iedere keer als ik het UserForm invul de gegevens worden overschreven in bijvoorbeeld RIJ 12

Onderstaand de gebruikte code. Ik denk dus dat deze regel A = Cells(Rows.Count, 1).End(xlUp).Row + 1 aangepast moet worden alleen weet ik niet even hoe.
Ik ben pas een beginner met VBA 

Alvast bedankt voor de moeite.

Met vriendelijke groet, Berry.

Private Sub CommandButton1_Click()
Dim A As Long
A = Cells(Rows.Count, 1).End(xlUp).Row + 1
  Cells(A, 1).Value = Maatva.Value
  Cells(A, 2).Value = Trekva.Value
  Cells(A, 3).Value = Tankva.Value
  Cells(A, 12).Value = Homva.Value
  Cells(A, 11).Value = Kuitva.Value
  Cells(A, 13).Value = Yleva.Value
  Cells(A, 14).Value = Vastva.Value
  Cells(A, 6).Value = Ava.Value
  Cells(A, 7).Value = Bva.Value
  Cells(A, 8).Value = Cva.Value
  Cells(A, 9).Value = Dva.Value
  Cells(A, 10).Value = Vasttva.Value
  Cells(A, 19).Value = Opmerkingva.Value
  Maatva.Value = ""
  Trekva.Value = ""
  Tankva.Value = ""
  Homva.Value = ""
  Kuitva.Value = ""
  Yleva.Value = ""
  Vastva.Value = ""
  Ava.Value = ""
  Bva.Value = ""
  Cva.Value = ""
  Dva.Value = ""
  Vasttva.Value = ""
  Opmerkingva.Value = ""
 
End Sub

Of..gewoon...

Private Sub CommandButton1_Click()

  Cells(12, 1).Value = Maatva.Value
  Cells(12, 2).Value = Trekva.Value
  Cells(12, 3).Value = Tankva.Value
  Cells(12, 12).Value = Homva.Value
  Cells(12, 11).Value = Kuitva.Value
  Cells(12, 13).Value = Yleva.Value
  Cells(12, 14).Value = Vastva.Value
  Cells(12, 6).Value = Ava.Value
  Cells(12, 7).Value = Bva.Value
  Cells(12, 8).Value = Cva.Value
  Cells(12, 9).Value = Dva.Value
  Cells(12, 10).Value = Vasttva.Value
  Cells(12, 19).Value = Opmerkingva.Value
  Maatva.Value = ""
  Trekva.Value = ""
  Tankva.Value = ""
  Homva.Value = ""
  Kuitva.Value = ""
  Yleva.Value = ""
  Vastva.Value = ""
  Ava.Value = ""
  Bva.Value = ""
  Cva.Value = ""
  Dva.Value = ""
  Vasttva.Value = ""
  Opmerkingva.Value = ""
 
End Sub
SoftAid