VBA 代码部分陷入循环

Question

据我所见，该代码应该可以工作，但最终陷入了循环，因此显然仍然存在问题。

• 目的是从单元格 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