So here is my code:

 

    Dim counter As Integer
    counter = 1   With Sheets(2)
    Do Until ActiveCell.Font.Bold = True
        If IsEmpty(ActiveCell) Then ActiveCell.Offset(1, 0).Activate Else
        ActiveCell.Copy
        Sheet1.Activate
        Sheet1.Cells(counter, 19).Select
        ActiveCell.PasteSpecial (xlPasteValues)
        counter = counter + 1
        Sheet2.Activate
        ActiveCell.Offset(1, 0).Activate
    Loop
    End With
The goal is for it to continue to copy NON-BLANK cells until it hits another bold item. Bold items are the Businesses I am working with and underneath each bold section is a list of rows with various numbers, however some rows are blank and I want it to skip these rows and go onto the next to copy until it hits the bold title of the next business.

So far this is doing something it can void blanks if it is only 1 blank in a row between two values, however when multiple blanks are present it still copies and pastes blank values.

Help, I need it to not paste blanks into the list on Sheet1.