stack data in datasheet

Hi guys,
I'm back with another project that is to hard for my feeble brain.
I have a Datasheet (ALARM DATA), and I have a couple of other worksheets Named something like (MMHSTN MEJ-LA0 SI003 SH501). The ALARM DATA sheet has all the Formula Calculations, and I just need to get some Data from whatever sheet is Active so it can do it's thing and eventually get the end results back to the activesheet i'm working on. I suspect you guys will consider this Childsplay. I have attached the workbook so you can see what's going on. So here goes.
1)
I need to get 4 seperate sections of Data from the Activesheet to the Datasheet.
F7-F22, F37-F52, F67-F82, F97-F112
I guess the Macro should look at them first and make sure something is there and insert in the Datasheet F4-F97 in order no Blanks.

2)
Offset string for this portion. I have to keep the data together. The Data would be in the same row only in Column "L". It should not matter if the "L" whatever cell is blank, it should just leave the Datasheet "H" Cell Blank.

3)
After info is inserted in the Datasheet, the calculated product in ALARM DATA "J" column needs to get moved into the activesheet "AS3" column blanks and all.

Thanks in Advance!

1) How do I Dim multiple ranges like this?
2) I need to clear out the Alarm Data sheet ("F4:F97"), offset(0,2)
3) During the loop, the SlCells with data, and the data needs to be placed in the next blank cell Alarm Data ("F4:F97"), Offset(0,2)

Code:

---

            Sub Alarm()

                Dim SlCell As Range
                For Each SlCell In ActiveSheet.Range("F7:F22, F37:F52, F67:F82, F97:F112")
                If SlCell <> "" Then Sheets("ALARM DATA").Range("F4:F97") = ActiveSheet.Range("SlCell").Value
SlCell.Offset(0,6)

                End If
               
                Next
        End Sub

---

Bump