Hi NBVC
Oh my God, I am a numpty.
Private Sub CommandButton1_Click()
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xrange As Range
If Target.HasFormula Then
Application.EnableEvents = False
If Target.Column > 1 Then
Set xrange = Target.Offset(0, -1).End(xlDown).Offset(0, 1)
Range(Target, xrange).FillDown
Application.EnableEvents = True
End If
End If
End Sub
I have disabled this and it now works perfectly.
I don't remember doing this at any point so that is why I would not have thought to look there.
You are fantastic thank you very very much for your help. You just may have saved my sanity.
Kindest Regards
Bill
Bookmarks