Macro to copy text with hyperlinks

[pisistrato]

Hi guys,

I built this macro

Sub Macro1()

For Each cell1 In Worksheets("FIRST").Range("B2:B135")
For Each cell2 In Worksheets("SECOND").Range("B1:B95")

If cell1.Value = cell2.Value And cell1.Offset(0, -1).Value = cell2.Offset(0, -1).Value Then

cell1.Offset(0, 2) = cell2.Offset(0, 1)
cell1.Offset(0, 3) = cell2.Offset(0, 2)

End If

Next
Next


End Sub

The column cell2.Offset(0, 1) contain text with hyperlinks, how can I keep the hyperlinks?