Раздел кода VBA застрял в цикле

Из того, что я вижу, этот код должен работать, но в конечном итоге он застрял в цикле, поэтому очевидно, что проблема все еще существует.

• Намерение состоит в том, чтобы начать с ячейки E70 и вставить значение, полученное из ячейки X38.

• Переместитесь вниз к следующей ячейке столбца E и повторяйте вставку значений из ячейки X38, пока соответствующий номер строки столбца D не станет пустым.

Код:

Option Explicit    

Sub Variability_Score()    
'        
' Variability_Score Macro    
'        
' Keyboard Shortcut: Ctrl+p    
'        
    Dim rowNo As Integer
    rowNo = 70

    Do Until IsEmpty(Cells(rowNo, 4))  

        Range("$X$38").Select    
        Selection.Copy    
        Range("E70").Select    
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _    
            :=False, Transpose:=False    
            ActiveCell.offset(RowOffset:=1).Activate    

            rowNo = rowNo + 1    
    Loop
End Sub