I need a macro to copy the hyperlink from one column to another

[plz help]

It has been too many years since I did any programming and never learned VBA and not interested in learning now.

I have a list approximately 850 to 900 items long and need to copy the hyperlink in column C and use the same to create a hyperlink in column A, same row. I am thinking While-Wend would be the way to go in order to stop the macro if the active cell in column C is empty. I have already done a few rows with dead links and deleted the contents of column C at those rows. To give an example of what I'm working on here is a two row list:

A (needs a hyperlink) B C (with hyperlink or deleted)
Freewheeler Rig, by Bob McLellon – Date: 9/10/03 Freewheeler Rig by Bob McLellon – Date: 9/10/03
Freewheeling Ideas, by Nason – Date: 9/10/06

The purpose of what I'm working on, if it isn't obvious, is to separate the date from the title.

[plz help]

Sorry, this didn't post the way I thought I would. "- Date: " followed by the date is supposed to be column B and everything else after is column C.

[plz help]

Here is what I have been able to do (record):

Selection.Hyperlinks(1).Address = "directory/filename (yes, this has been changed"
ActiveCell.Offset(0, -2).Range("A1").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= "directory/filename", TextToDisplay:= "text to display"
ActiveCell.Offset(1, 2).Range("A1").Select

and how I think it needs to be:

create a variable (for hyperlinks)
possibly create a second variable (for hyperlink text to display)
While (test current cell for not equal to empty)
variable = hyperlink in the current cell
ActiveCell.Offset(0, -2).Range("A1").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= variable (,possible second variable for text to display or leave unchanged)
ActiveCell.Offset(1, 2).Range("A1").Select
Wend

[plz help]

Thanks but I figured it out!

Sub Macro3()
'
' Macro3 Macro
'
' Keyboard Shortcut: Ctrl+z
'
Dim link As String

While ActiveCell <> Empty
link = Selection.Hyperlinks(1).Address
ActiveCell.Offset(0, -2).Range("A1").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=link
ActiveCell.Offset(1, 2).Range("A1").Select
Wend
End Sub