'たくさんあるデータを一括で、転記する方法
'配列方式
With Workbooks(fName).Sheets(sName)
'ロットNo.転記（C列）
Dim lotNo As Variant
lotNo = .Range("C2:C" & cntNo + 1)
Range("C8:C" & cntNo + 7) = lotNo
End With
'複数セルの場合
'上記のように1セルだけだと配列方式で良いのですが、
'複数セルの場合、Forで配列を作成する事しか出来ません
With Workbooks(fName).Sheets(sName)
'No.（E列） + 値転記（F列）
For i = 2 To cntNo + 1
Range("E" & i + 6) = _
.Range("E" & i) & .Range("F" & i)
Next
End With