Opret tekststreng i andre arkfaner

Sub Sand_Falsk()
    Dim FFalsk As String, SSand As String, I As Long, RW As Long
    RW = Range("A65536").End(xlUp).Row
    For I = 1 To RW
        If Cells(I, 1).Offset(0, 1) = True Then
            FFalsk = FFalsk & Cells(I, 1) & ";"
        Else
            SSand = SSand & Cells(I, 1) & ";"
        End If
    Next
    Sheets("Sand").[A1] = Left(SSand, Len(SSand) - 1)
    Sheets("Falsk").[A1] = Left(FFalsk, Len(FFalsk) - 1)
End Sub

eller er det sådan du mener
Sub Sand_Falsk()
    Dim FFalsk As String, SSand As String, I As Long, RW As Long
    RW = Range("A65536").End(xlUp).Row
    FFalsk = "Falsk: "
    SSand = "Sand: "
    For I = 1 To RW
        If Cells(I, 1).Offset(0, 1) = True Then
            FFalsk = FFalsk & Cells(I, 1) & ";"
        Else
            SSand = SSand & Cells(I, 1) & ";"
        End If
    Next
    Sheets("Sand").[A1] = Left(SSand, Len(SSand) - 1)
    Sheets("Falsk").[A1] = Left(FFalsk, Len(FFalsk) - 1)
End Sub

Version 1 er den jeg søger.

Jeg har lige en kolonneoverskrift i række 1 jeg ikke skal have med ???

ret
  For I = 1 To RW
til
  For I = 2 To RW

og et svar

Smukt, jeg takker