Macro to hyperlink and copy/paste value to 2nd worksheet???

hi AudreaBull, sort of that basing on the code provided:

Sub Test()
Dim ws1 As Worksheet
Dim lngRowCounter As Long
Dim lngRowMultiplier As Long


lngRowCounter = 1
lngRowMultiplier = 30

Set ws1 = Worksheets("Sheet1")

Do While Not IsEmpty(ws1.Range("A" & lngRowCounter))
With ws1.Range("A" & lngRowCounter)
    Worksheets("Sheet2").Range("A" & lngRowCounter * lngRowMultiplier + 4).Value = .Value
    .Hyperlinks.Add Anchor:=.Cells, Address:="", SubAddress:="Sheet2!" & "A" & lngRowCounter * lngRowMultiplier + 4
End With
lngRowCounter = lngRowCounter + 1
Loop

End Sub

PS. You need to use HASH sign on message edit panel while posting any code on the forum