Sub ModifySh()
Dim Lr%, i%, Ar, Ar1, Ar2, Cl As Range
Lr = Cells(Rows.Count, 1).End(xlUp).Row
Ar2 = Array(31, 26, 19, 16, 17, 68, 24)
For i = Lr To 1 Step -1
   If Cells(i, 1) = "" Then Rows(i).Delete
Next
Ar = ActiveSheet.UsedRange
ActiveSheet.UsedRange.Clear
ReDim Ar1(1, 1 To UBound(Ar) / 2)
For i = 1 To UBound(Ar)
   Ar1((i + 1) Mod 2, Int((i + 1) / 2)) = Ar(i, 1)
Next
Cells(1, 1).Resize(2, 7) = Ar1
For Each Cl In Range("A2:G2")
   If InStr(Cl, "@") Or InStr(Cl, "://") Then ActiveSheet.Hyperlinks.Add Anchor:=Cl, Address:=Cl.Formula
   Cl.ColumnWidth = Ar2(Cl.Column - 1)
Next
With ActiveSheet.UsedRange
   .HorizontalAlignment = xlCenter
   .VerticalAlignment = xlCenter
   .WrapText = True
End With
End Sub