I'm guessing you want to move the data to the commissions sheet starting
at cell B3 and then B4, B5 etc. If so try:

Sub GetData()
Dim comSht As Worksheet
Dim sht As Worksheet
Dim r As Long

r = 3
Set comSht = Sheets("Comms") '<<change to name of commissions sheet
For Each sht In ThisWorkbook.Worksheets
If sht.Name < comSht.Name Then
If Application.WorksheetFunction. _
CountA(sht.Range("F10:O11")) 0 Then
comSht.Cells(r, 2).Value = sht.Range("C10").Value _
& " " & sht.Range("C11").Value
r = r + 1
End If
End If
Next sht
End Sub

Hope this helps
Rowan


jaysphotos wrote:
I have a workbook that has 32 sheets in it 31 of the sheets are the same and
the last one is used to track commisions on and do a mail merge to send out
thank you cards. On the sheets labeled 1-31 if cells f 10 - o 11 have
anything other than blank I want cells c 10 & 11(these cells have text in
them) moved to the commision tracking sheet into cell b3 and it will need to
concatenate c 10 & 11. I'am very new to programing. Thank you for your help!