Excelで簡単な見積書を作成

Option Explicit

'見積書の作成
Private Sub MyMakeMitumori()
    Dim srcst As Object
    Dim destst As Object
    Dim lrow As Integer
    Dim ldestrow As Integer
    Dim lcoun As Integer
    
    'コピー元のワークシート
    Set srcst = Worksheets("商品一覧")
    'コピー先のワークシート
    Set destst = Worksheets("見積書")
    
    ldestrow = 13
    lcoun = 0
    For lrow = 5 To 24
        '数量の入力チェック
        If srcst.Cells(lrow, 6) > 0 Then
            '見積書にコピーする
            srcst.Range(srcst.Cells(lrow, 2), srcst.Cells(lrow, 6)).Copy (destst.Range("B" & ldestrow))
            ldestrow = ldestrow + 1
            lcoun = lcoun + 1
        End If
    Next
    If lcoun = 0 Then
        MsgBox "数量が入力されている商品が見つかりません。" & vbCrLf & _
            "見積を作成する商品の数量を入力してください。"
    Else
        MsgBox lcoun & "件の見積りを作成しました。"
    End If
End Sub

Private Sub CommandButton1_Click()
    MyMakeMitumori
End Sub