Can't figure out why the count is messed up?

Hey abousetta, I uploaded what the first two columns should look like in Fixture Data Updated, it would be a lot of work doing it for all of them! Hope that gives you the idea...

Hey JosephP, The macro is testing all the rows in column A. The count i is separate from j and k. "i" basically tests the data for validity and j and k go about formatting it. If you run the macro you would notice it is kinda working but excel is not doing the count of j and k as would be ideal. My ideal format for the 1st two columns is in Fixture Data Updated - I would like that format for all the columns.

Anyways, thanks both of you for looking into the problem

Hey JosephP, excellent. You are right. I just added

Range("A" & i).Activate

before

ActiveCell.Select

and it works great now. I was confused, because earlier it seemed to be working, but I step late. Nevertheless, thanks a lot. Really appreciate the help. The coding now is:

Sub LRow()

Dim LastRow As Long

'Search for any entry, by searching backwards by Rows.
LastRow = Range("A1:A65536").Find(What:="Preview Live Report", After:=[A1], _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row

Range("A1:A" & LastRow).Select

Dim i As Integer

j = 0

For i = 1 To LastRow

With Range("A" & i)
If .Cells = "" Then
Else

Range("A" & i).Activate
ActiveCell.Select

If Selection.Font.Bold = True Then
Range("A" & i).Copy
j = j + 1
Range("A1").Activate
ActiveCell.Offset(0, j).PasteSpecial
k = 0

Else

Range("A" & i).Copy
Range("A1").Activate
k = k + 1
ActiveCell.Offset(k, j).PasteSpecial


End If

End If

End With


Next i


End Sub

Well, I wanted to get rid of the blank spaces and start at row 1 each time there was font in bold. That was why I included the

Range("A1").Activate

I did try it out, it seems to be shifting a column each time it hits text with bold font (which is what I wanted). But the blank spaces are still there and the text is getting offset by k (meaning if k=1, j=1 and the text is in Cell "A3" then it is going to Cell "B4", so there is now 3 blank cells below the text in Cell "B1"). Additionally the next text with bold font is starting at Cell "C64"

My reason for going back to Cell "A1" as the active cell was so that I could have no blank spaces and each time the program hits bold text, it would start the next column at row 1 i.e. the 1st Bold text will start at Cell "B1", then the next bold text will start at Cell "C1" and so on.

Hope that clears up, what I was intending to do. I am open to the idea of a more simple and elegant solution, if there is one. Thanks!