Cycle throuhg rows on a sheet

i need the functions to cycle throuhg the rows on each sheet and output data in this format


For Sheet X
For I to Count total rows
output

specific Sheet!A4&CHAR(10)&
Specific Sheet!B4&CHAR(10)&
specific Sheet!C4&CHAR(10)&
IF(ISBLANK(specific sheet!D4),"Det. 2014",Notostraca!D4&CHAR(10)&"Det. R. G. Ahlers 2014"))

anyoen able to help?

Collection Sheet.xlsx

here is my workbook
what i want is data to look like the first cell on the label sheet..but the function has to check each of the sheets to gather all that data

ok in your code how woudl i set the range to start at A4 instead of A1

as in A4 is the first point a record would be founnd?

ok my bad i was mis understainding the code...
when i run it i get blank cells adde dbecasue the shet hsa nothign on it yet..how would i account for that..im assuming an if statement right?

when i have multiple rows on a sheet filled in wiht the data it only spits out the first row

Ok im lost woith what to do from her..i can get them to combine well

Option Explicit

Sub SampleLoop()

Const sSSName As String = "Labels"
Dim sh As Worksheet
Dim lLR As Long
Dim i As Long

For Each sh In ThisWorkbook.Worksheets
    With sh 'do this to each sheet
        If sh.Name <> sSSName Then ' if the sheet doesnt equal label sheet
        With Sheets(sSSName) ' label sheet
            lLR = .Range("A" & .Rows.Count).End(xlUp).Row 'bottom row on the labels sheet
            For i = 1 To lLR
                .Range("A" & i).Value = sh.Range("A" & (i + 3)) & Chr(10) & _
                                        sh.Range("B" & (i + 3)) & Chr(10) & _
                                        sh.Range("C" & (i + 3)) & Chr(10)
                If sh.Range("D" & (i + 3)) = "" Then
                    .Range("A" & i).Value = .Range("A" & i).Value & "Det. 2014"
                Else
                    .Range("A" & i).Value = .Range("A" & i).Value & sh.Range("D" & (i + 3)) & _
                                                                    Chr(10) & _
                                                                    "Det. R. G. Ahlers 2014"
                End If 'Sheets(sSSName).Range("D4")
            Next 'i
            End With
        End If 'sh.Name
    End With 'sh
Next 'sh

End Sub

ah ok thx ill have a go at it

here is waht i got...but its not working perfectly

Sub SampleLoop()

Const sSSName As String = "Labels"
Dim sh As Worksheet
Dim lLR As Long
Dim i As Long
Dim r As Long
Dim sq As Long

For Each sh In ThisWorkbook.Worksheets
    With sh
        If sh.Name <> sSSName Then ' if the sheet doesnt equal label sheet
            lLR = Sheets(sSSName).Range("A" & .Rows.Count).End(xlUp).Row + 1 'bottom row on the labels sheet
            r = .Range("A" & .Rows.Count).End(xlUp).Row
                For i = 4 To r
                    For sq = 1 To lLR
                        Sheets(sSSName).Range("A" & sq).Value = .Range("A" & i) & Chr(10) & _
                                                 .Range("B" & i) & Chr(10) & _
                                                 .Range("C" & i) & Chr(10)
                        If .Range("D" & i) = "" Then
                            Sheets(sSSName).Range("A" & sq).Value = Sheets(sSSName).Range("A" & sq).Value & "Det. 2014"
                        Else
                            Sheets(sSSName).Range("A" & sq).Value = Sheets(sSSName).Range("A" & sq).Value & .Range("D" & i) & _
                                                                    Chr(10) & _
                                                                    "Det. R. G. Ahlers 2014"
                        End If 'Sheets(sSSName).Range("D4")
                    Next 'i
                Next
        End If 'sh.Name
    End With
Next 'sh

End Sub