RFC4122 1 : «Не предполагайте, что UUID трудно догадаться; они не должны использоваться в качестве возможностей безопасности (например, идентификаторы, чье личное владение предоставляет доступ). Предсказуемый источник случайных чисел усугубит ситуацию ».
В простой задаче инкрементный uint64 лучше.
НЕ ИСПОЛЬЗУЙТЕ GUID! Если нужна безопасность.
http://social.msdn.microsoft.com/Forums/en/netfxbcl/thread/b37b3438-90f4-41fb-adb9-3ddba16fe07c
Вы не говорите, в чем ваша проблема, но вам не нужны две петли. Установите высоту при вставке строки.
Спасибо @JvdV за указание на то, что при удалении или вставке строк следует выполнять цикл назад, чтобы избежать пропуска / пропуска строк.
Sub y()
Dim r As Long
With ThisWorkbook.Worksheets("Offer Letter")
For r = 60 To 2 Step -1
If Not IsEmpty(.Cells(r, "E")) Then
.Cells(r + 1, "E").EntireRow.Insert
.Cells(r + 1, "E").EntireRow.RowHeight = 7
End If
Next r
End With
End Sub