シート、表の作成

範囲選択 アクセスするとき、Range( )で範囲を指定できます。範囲はCells()を使って指定することもできます。

Range("A1","E7").Value="Excel VBA"
Range(Cells(1,1),Cells(7,5)).Value=
  "Excel VBA"

シートの選択
　セルにアクセスするとき、アクティブなシートを選択します。アクティブなシートは次のように設定可能です。

Worksheets("Sheet2").Activate 
Worksheets("Sheet2"). _
  Cells(1,1).Value="EXCEL VBA" 

表の作成
右の在庫表から在個数が一定以下の商品を取り出し発注表を作成します。シートには予め「在庫」と「発注」の名前をつけておきます。
　Offset(,-2)は2列左の品番を取り出す関数です。

Sub order()
  Dim n As Long
  Dim myRange As Range
  
  n = 2
  For Each myRange _
      In Worksheets("在庫").Range("C2:C5")
    If myRange.Value < 100 Then
      Worksheets("発注").Cells(n, 1).Value _
       = myRange.Offset(, -2).Value
      Worksheets("発注").Cells(n, 2).Value _
       = 200 - myRange.Value
       
      n = n + 1
    End If
 Next
      
End Sub