How do you make the Range vary depending on the data?

Basically, I want the VBA to skip three rows and read the next line if the text in the current row is in bold font and skip 2 rows and read the next line if the text in the current row is not bold.

My code thus far:

Sub Bold()

Dim i As Range

For Each i In Range("A1:A6")

If FontBold = True Then

Range("A" & i).Select - This declaration of the range doesn't work! How can I fix it?
Selection.Copy
Range("F" & i).Select
ActiveSheet.Paste

i = i + 3

Else

Range("A" & i).Select
Selection.Copy
Range("F" & i).Select
ActiveSheet.Paste

i = i + 2

End If

Next

End Sub

Thanks!!

Okay, I just realized I have more to do than the above code would establish. But Basically the data is in column A and the re-arranged data (done manually) is in column F to H. I'm guessing to re-arrange the data I would need two more variables j and k. One to keep going horizontally and one to keep going vertically. NOTE that the data repeats itself depending on the date which is in bold.

Thanks!