A seção do código do VBA está presa em um loop

Question

Pelo que eu vejo, esse código deve funcionar, mas acaba preso em um loop, então obviamente ainda há um problema.

• A intenção é começar na célula E70 e colar um valor obtido da célula X38.

• Mover para baixo até a próxima célula da coluna E e repetir os valores de colagem da célula X38 até que o número da linha correspondente da coluna D esteja vazio.

O código:

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