"Lower"
kendals
I don't know if you are familiar with VBA but your VBA text should look something like:
Sub Button_Click()
' Macro by Hoenselaar, 2007-08-03
Dim lngCounter1 As Long
Dim lngCounter2 As Long
lngCounter1 = 1
lngCounter2 = 1
Do While Not Worksheets("Sheet1").Cells(lngCounter1, 1) = ""
If Worksheets("Sheet1").Cells(lngCounter1, 1) = "Lower" Then
Worksheets("Sheet1").Select
Rows(lngCounter1).Copy
Worksheets("Sheet2").Select
Rows(lngCounter2).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation_
:=xlNone, SkipBlanks:=False, Transpose:=False
lngCounter2 = lngCounter2 + 1
End If
lngCounter1 = lngCounter1 + 1
Loop
End Sub
P.s. Lay out is incorrect tabs are missing!