Here is what I want to do:

For R = 2 To numRows - 2 Step 3
For C = 6 To 26
.Cells(R, 5) = myArray(1)
.Cells(R, 3) = myArray(2)
.Cells(R, 2) = myArray(3)
.Cells(1, C) = myArray(4)
.Cells(R, C) = myArray(5)
.Cells(R + 1, C) = myArray(6)
.Cells(R + 2, C) = myArray(7)

' Switch to workbooks("Database").Worksheets("Database")
' copy array into columns 1 thru 7 of first empty row
starting on row 2
' Return to Workbooks("Flex2v Original").Worksheets
("data").Activate
Next C
Next R

I obviously need to define some variables and a 1 row 7 column array
and a few other things to make this work.
Can anyone help.