Excel VBA macro to select range separated by blank row and copy to next empty column

Ok, I tried this is kinda what I need except colums and not rows.

Sub Copy()
    Dim lastRow As Long, i As Long
    Dim CopyRange As Range

    With Sheets("Sheet3")
        lastRow = .Range("B" & .Rows.Count).End(xlUp).Row

        For i = 1 To lastRow
            If Len(Trim(.Range("B" & i).Value)) <> 0 Then
                If CopyRange Is Nothing Then
                    Set CopyRange = .Rows(i)
                Else
                    Set CopyRange = Union(CopyRange, .Rows(i))
                End If
            End If
        Next

        If Not CopyRange Is Nothing Then
            CopyRange.Copy Sheets("Sheet5").Rows(1)
        End If
    End With
End Sub

Thanks again...