Sub test()
Dim n As Long, ref As Range, refA As Range
Range("B2:K65536").ClearContents
For n = 2 To Range("A65536").End(xlUp).Row
If Range("A" & n) Like "F1*" Then
Set ref = Range("B65536").End(xlUp).Offset(1)
ref = Range("A" & n + 1)
Set refA = Range("A" & n + 2)
End If
If Range("A" & n) Like "Nº tel*" Then
ref.Offset(0, 1) = Trim(Replace(Range("A" & n), "Nº tel", ""))
Range(refA, Range("A" & n - 1)).Copy
ref.Offset(0, 3).PasteSpecial xlPasteValues, Transpose:=True
Application.CutCopyMode = False
End If
If Range("A" & n) Like "E-MAIL*" Then
ref.Offset(0, 2) = Trim(Replace(Range("A" & n), "E-MAIL", ""))
If ref.Offset(0, 2) <> "" Then _
ActiveSheet.Hyperlinks.Add Anchor:=ref.Offset(0, 2), Address:="mailto:" & ref.Offset(0, 2)
End If
Next n
End Sub