[b]Clearing Contents of Row and Moving all subsequent Rows Up

I have a macro using the change event. If an "x" gets typed into a certain cell, then the contents of the cells to the left gets cleared and the contents below get moved up so there is not a blank row in the range. All works fine except when I clear the contents of the cell that contains the "x", the change event gets triggered again in a continuous loop and all the cells are moved up and cleared one by one. However if I don't include the cell with the "x", then the "x" remains which I don't want to have happen. Does this make sense to anyone out there? There must be some simple work around.

Thanks so much in advance!

Re: Clearing Contents of Row and Moving all subsequent Rows Up

I will try my best to attach my workbook. I have never done that before and not sure how to do it. As you can see, I've just taken a first stab at this and only am testing one cell. The code will be modified as soon as I have things ironed out.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Range1 As Range
Dim Range2 As Range
Dim Range3 As Range
Dim Range4 As Range
Dim Range5 As Range
Dim Range6 As Range
Dim IntersectRange1 As Range
Dim IntersectRange2 As Range
Dim IntersectRange3 As Range
Dim IntersectRange4 As Range
Dim IntersectRange5 As Range
Dim IntersectRange6 As Range




Set Range1 = Range("J3:J16")
Set Range2 = Range("T3:T16")
Set Range3 = Range("J20:J32")
Set Range4 = Range("T20:T32")
Set Range5 = Range("J36:J50")
Set Range6 = Range("T36:T50")


Set IntersectRange1 = Intersect(Target, Range1)
Set IntersectRange2 = Intersect(Target, Range2)
Set IntersectRange3 = Intersect(Target, Range3)
Set IntersectRange4 = Intersect(Target, Range4)
Set IntersectRange5 = Intersect(Target, Range5)
Set IntersectRange6 = Intersect(Target, Range6)
Application.ScreenUpdating = False


If IntersectRange1 Is Nothing Then Exit Sub




If IntersectRange1 = Range("J4") Then
    Range("A4:I4").ClearContents
    Range("A5:I16").Copy
    Range("A4:I15").PasteSpecial xlPasteValues
    Range("A16:I16").ClearContents
    Range("A3").Select
End If
Application.ScreenUpdating = True
End Sub

Re: [b]Clearing Contents of Row and Moving all subsequent Rows Up

Thanks so very much! Pretty simple solution, huh? I just couldn't find it...

And thanks for the correction on posting code. I must have just spaced out the forward slash.

Thanks again!