お世話になります。

マクロの記録で取りました。

シート１のDH32に式がはいってます。
シート１のA7が空白の時は空白

そうでない場合は、
シート3のM7が０より大きい時はシート3のB7の数字を
シート１のDH32に

その式をシート１のDH33からシート１のDH38までコピーする。

DH32からDH38に関数式を
出さないVBAにしたいのですが、
ご教授お願い致します。

Excel 2010　です。

＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊

Sub Macro3()

Sheets("Sheet1").Range("DH32").Select
    ActiveCell.Formula = _
        "=IF(Sheet1!A7="""","""",IF(Sheet3!M7>0,Sheet3!B7,""""))"
    Range("DH32").Select
    Selection.Copy
    Range("DH33:DH38").Select
    ActiveSheet.Paste
    Range("DH32").Select
    Application.CutCopyMode = False
End Sub

すいません。
もう一つ書き忘れていました。
DH32からDH38に空白が
ある場合は上詰めにする方法を
ご教授お願い致します。

シート１

　　列
行
　　　　DH
３２　　１２
３３　　空白
３４　　空白
３５　　１
３６　　８
３７　　空白
３８　　１１　　

この空白を上詰めにしたいのですが
どの様にするのでしょうか。

　　　　DH
３２　　１２
３３　　１
３４　　８
３５　　１１
３６　　
３７　　
３８　　　

＞DH32からDH38に関数式を
＞出さないVBAにしたいのですが、

「出さない」と言う意味がよく分からないですが、以下 一案。

Sub test()
    Dim r(1 To 3) As Range
    Dim rDest As Range
    Dim RW As Long, cnt As Long
        
    Set r(1) = Worksheets("Sheet1").Range("A7")
    Set r(2) = Worksheets("Sheet3").Range("M7")
    Set r(3) = Worksheets("Sheet3").Range("B7")
    Set rDest = Worksheets("Sheet1").Range("DH32:DH38")
    
    rDest.ClearContents '事前クリア
    
    For RW = 1 To rDest.Rows.Count
        If r(1)(RW, 1) <> "" Then
            If r(2)(RW, 1) > 0 Then
                cnt = cnt + 1
                rDest(cnt, 1) = r(3)(RW, 1).Value
            End If
        End If
    Next
End Sub


この記事にはVBAのコードが含まれています。

緑の太文字→注釈
茶色の太文字→条件分岐
赤の太文字→ループ
青の太文字→その他