Excel VBA copy/paste range

[JessK]

So I'm trying to make a macro to basically copy and paste imported information and make it look pretty in the excel sheet. The imported data can change all the time, so I'm using a lot of if thens. Heres an example of my imported data:
A B C D E F
Chicago 3 3 8 7 139977-002
Chicago 7 3 7 5
Chicago 20 3 3 1
Joliet 50 3 8 6 139978-003
Joliet 150 3 8 4
Wisconsin 20 3 8 5 1339980-001

Basically, what I need to do is when there is a number in column F, I need to copy and paste the values from Column B until there is another value in F, and then to do it again all the way to the end of the data. So that the only data I copy(the first time) is 3, 7, 20, and paste that in the proper place and then next 50, 150, to paste in a different place and then next 20.
Any ideas?

 

[Tinbendr]

... and paste that in the proper place ...

And where is the proper place?

 

[JessK]

Its on a different worksheet. I'm pretty sure I know how to paste it after I copy the range, at least I can paste it to a cell -> .Copy Destination=Sheets("Bod") Cells("29,4")

 

[Tinbendr]

Sub FillIn()
Dim aCell As Range
Dim LastRow As Long
Dim DestRow As Long
DestRow = 29
LastRow = ActiveSheet.Range("A65536").End(xlUp).Row - 1
For Each aCell In ActiveSheet.Range("F1:F" & LastRow)
If aCell.Offset(0, 1) = "" Then
Worksheets("Bod").Cells(DestRow, 4) = aCell.Offset(0, -4).Value
DestRow = DestRow + 1
End If
Next
End Sub

 

[JessK]

Awesome, thank you so much David.