I'm having a bit of trouble (OK, a lot of trouble) writing some code.
Here's my situation.

My Workbook has many Worksheets with names like L1-3, F2-6, L2-3, R4-10,
etc. I need to write code that will do the following: (I'll use a button
to execute this code)

For each sheet whose name starts with 'L', copy the contents of Range A8:D28
and O8:O28 to a worksheet called L_Summary, starting in row 3 and working
downwards. Blanks should be ignored, and each new set of data should be
appended to the data already existing.

I would be sooooo greatful for any help with this.
much thanks, Giselle

Sub ABCD()
Dim sh As Worksheet
Dim sh1 As Worksheet
Dim rng1 As Range, rng As Range
Set sh = ThisWorkbook.Worksheets("L_Summary")
if isempty(sh.Range("A3")) then
set rng = sh.Range("A3")
else
Set rng = sh.Cells(Rows.Count, 1).End(xlUp)(2)
end if

For each sh1 in ThisWorkbook.Worksheets
if Ucase(left(sh1.Name,1)) = "L" and _
sh1.name < sh.name then
sh1.range("A8:D28").Copy rng
sh1.Range("O8:O28).copy rng.offset(0,4)
set rng = rng.offset(21,0)
End if
Next sh1
' if you mean there may be blank rows int he rows 8 to 28, and you can tell
' this by looking at column 1, then this would remove blank rows
' otherwise, take it out
on Error Resume Next
set rng = sh.Range(sh.Range("A3"),sh.Cells(row.count,1).End( xlup))
set rng1 = rng.specialCells(xlblanks)
if not rng1 is nothing then rng1.EntireRow.Delete
On Error goto 0
End Sub

Not sure what you mean by blanks should be ignored.
--
Regards,
Tom Ogilvy


"Giselle" wrote in message
...
I'm having a bit of trouble (OK, a lot of trouble) writing some code.
Here's my situation.

My Workbook has many Worksheets with names like L1-3, F2-6, L2-3, R4-10,
etc. I need to write code that will do the following: (I'll use a
button
to execute this code)

For each sheet whose name starts with 'L', copy the contents of Range
A8:D28
and O8:O28 to a worksheet called L_Summary, starting in row 3 and working
downwards. Blanks should be ignored, and each new set of data should be
appended to the data already existing.

I would be sooooo greatful for any help with this.
much thanks, Giselle