JGLWhiz or anyone else.....
I am running the following macro and it is stopping on Set a. I don't know
what is going on may be you all can help/

With Worksheets
lr4=.Cells(Rows.Count, 2).End(xlUp).Row
lc4=.UsedRange.Columns.Count +1
Set a = .Range(.Cells(lr4,2),.Cells(lr4, lc4))
Set b = .Range(.Cells(lr4 -1, 2),.Cells(lr4 - 1, lc4))
Set c = .Range(.Cells(lr4 -2, 2),.Cells(lr4 -2, lc4))
Set d = .Range(.Cells(lr4 -3,2),.Cells(lr4 -3, lc4))
arr4=Array(a,b,c,d)
for i =0 to 3
arr4(i).copy
.Range("B" & i +9).PasteSpecial Paste:=xlPasteValues
Next
End With
Application.cutcopyMode = False
End Sub

What I am trying to do is to copy and paste the last four (4) tests. If
there is only one (1) test then then it should post on row 9. If there are
two (2) tests then tests one (1) should post on row 9 and test two (2) on
row 10 and so on

Example Data Set.........

a b c d
71 4056 1/3/08 5 7
72 4056 1/3/08 5 8
73 4058 1/5/08 3 4
74 4056 1/6/08 2 6
75 4058 1/7/08 3 5
76 4056 1/9/08 6 7
77 4056 1/9/08 7 9

Example #1
Post last four (4) tests for 4056

a b c d
9 4056 1/3/08 5 7 ~~ This is test one (1)
10 4056 1/3/08 5 8 ~~ This is test two (2)
11 4056 1/6/08 2 6 ~~ This is test three from
data set for 4056
12 ~~ This is blank
because there are only
three (3)
tests for 4056

Example #2
Post last four (4) tests for 4058

a b c d
9 4058 1/5/08 3 4 ~~ Test one from data set for
4058
10 4058 1/7/08 3 5 ~~ Test two from data set
11 ~~ 11 and 12 left
blank because there isn't
12 four tests
(only two)

Example #3
Post last four (4) for 4058
For this there are five (5) tests for 4058 so test one (1) will be dropped.

a b c d
9 4056 1/3/08 5 8 ~~ from data set row 72 (71 was
dropped)
10 4056 1/6/08 2 6 ~~ row 74
11 4056 1/9/08 6 7 ~~ row 76
12 4056 1/9/08 7 9 ~~ row 77

Row 71 from data set was dropped because there were a total of five (5)
tests for 4056. Since we only need the last four (4) I dropped the first one
and went with the last four (4).


I hope this helps.......Any help would be greatly appreciated.

Eric