Repeat Cut & Paste function with Range.offset function VBA

Hello,
I am trying to automate a cut and paste function in this excel spreadsheet.
This is what I need to do : I

I need to cut the URLs in Column B and paste them into Column H.
For instance, URL in Range B3 will get cut and pasted into Range H2.
Url in Range B6 will get cut and pasted into Range H5.
As you can see, there is a pattern. The URLs need to be pasted with a range.offset function of (-1,6).
This needs to be repeated the until CELL B64.
I know how to write code to cut and paste but I don’t know how to loop through the range of cells in order to REPEAT the cut and paste function through the range B3 to B64 .
Any help would be greatly appreciated.

This is the code I tried but it doesn't work. I have included the actual excel file I am practicing on. I have been out of touch with Excel for some time and I feel completely lost. Any help I appreciate greatly.

Range("B3").Select

Do While ActiveCell.Value <> Empty
If InStr(ActiveCell.Value, "www.") = 0 Then
ActiveCell.Cut
ActiveCell.Offset(-1, 6).Select
ActiveSheet.Paste
End If

Andy,
Thanks so much for your help. Your code works wonderfully.
You've also given me inspiration and motivation to work harder at excel.

Thanks so much and have a great weekend.
Thanks again and greetings from California!