Hi,

I am using following code to store data in the next row starting from row 7 everytime I save.

Private Sub CommandButton2_Click()
Ark2.Activate
Dim x As Long, data(1 To 11) As Variant
For x = 1 To 11
    data(x) = Me.Controls("tb" & x).Value
Next x
With Sheets("Oval Karabin").Range("A6").CurrentRegion
    .Offset(.Rows.Count).Resize(1, 11).Value = data
End With


Unload Me

End Sub
My problem is that I have a formula in collumn 6 that`s prevent the storing of data to start in row 7.
When I save a date in collumn 5, collumn 6 will show the same date next year. Is it possible to fix this in the code I am allready using?

Best regards

Øystein