Rows over-typing previous rows of data when automatically being moved using vba coding

Hi,

I can not get the following code towork correctly as when the rows of data are moved automatically to it's new sheet the rows are over-typing the previous rows. Can someone point me in the right direct when I have gone wrong.


Option Explicit
Dim Flag As Boolean
Private Sub Worksheet_Change(ByVal Target As Range)
Dim LR As Long
LR = Range("A" & Rows.Count).End(xlUp).Row

If Flag = True Then Exit Sub
If Not Intersect(Target, Range("F3:F" & LR)) Is Nothing Then
If Target.Value = "Contract signed & received" Then

LR = Sheets("New Clients").Range("A" & Rows.Count).End(xlUp).Row + 1
Target.EntireRow.Copy
Sheets("New Clients").Range("A" & LR).PasteSpecial
Flag = True
Target.EntireRow.Delete

ElseIf Target.Value = "Business Lost" Then

LR = Sheets("Lost Business").Range("A" & Rows.Count).End(xlUp).Row + 1
Target.EntireRow.Copy
Sheets("Lost Business").Range("A" & LR).PasteSpecial
Flag = True
Target.EntireRow.Delete

End If
End If
Application.CutCopyMode = False
Flag = False
End Sub

WOW, thanks Mumps1, I was getting very stressed as I couldn't see what to do and you have made it so easy. Using your coding I have even been able to add new sheets to transfer data to based on the drop down list in column 'F' . Many thanks for your time and effort and making my life so much easier at work

Thanks again Kaz09

It was my pleasure.