I posted this originally on the 15th, but only received one response and Im
hoping for a little further information.

Im moving data from one page to another (moving inactive data from the
Active Page to the History Page). Since moving data is on a line by line
basis, the Active Page will contain several blank rows after other rows have
been removed (transferred to the History Page). Im wondering if there is a
way to €œstep up€� the remaining rows (that contain data) in the Active Page
without compromising the original Macros settings.

Below is the Macro I am using to move the data from the Active Page to the
History. Ive provided just 2 lines of the code, but I plan to continue this
same format for about 30 lines of data.

Thank you for your review and any further help would be greatly appreciated
€“ Jenny B.

__________________________________________________ _______________________--

Private Sub Worksheet_SelectionChange (ByVal Target As Range)
Application.ScreenUpdating = False
If Not Intersect(Target, Range("b3")) Is Nothing Then
Sheets("History").Range("a3:x3").Insert shift:=xlDown
Range("d3:aa3").Copy Destination:=Sheets("History").Range("a3:x3")
Range("C3:AB3").Select
Range("AB3").Activate
Selection.ClearContents
Range("c3").Select
Application.ScreenUpdating = True
ElseIf Not Intersect(Target, Range("b4")) Is Nothing Then
Application.ScreenUpdating = False
Sheets("History").Range("a3:x3").Insert shift:=xlDown
Range("d4:aa4").Copy Destination:=Sheets("History").Range("a3:x3")
Range("C4:AB4").Select
Range("AB4").Activate
Selection.ClearContents
Range("c4").Select
Application.ScreenUpdating = True
End If
End Sub