VBA编写中数据复制引用和VBA函数公式的使用方法求教

惠小会

VBA编写中数据复制引用和VBA函数公式的使用方法求教
Sub 清关发票()
  Worksheets("Sheet2").Range("A11:CC100000").ClearContents
  n = Worksheets("录入").Range("A65536").End(xlUp).Row
  If n < 6 Then Exit Sub
Worksheets("Sheet2").Range("A11:A" & n).Value = Worksheets("录入").Range("A6:A10000").Value
Worksheets("Sheet2").Range("B11:B" & n).Value = Worksheets("录入").Range("O6:O10000").Value
Worksheets("Sheet2").Range("C11:C" & n).Value = Worksheets("录入").Range("J6:J10000").Value
Worksheets("Sheet2").Range("D11:D" & n).Value = Worksheets("录入").Range("P6:P10000").Value
Worksheets("Sheet2").Range("E11:E" & n).Value = Worksheets("录入").Range("C6:C10000").Value * 0.4 / 1.3
Worksheets("Sheet2").Range("F11:F" & n).Value = Worksheets("录入").Range("B6:B10000").Value
Worksheets("Sheet2").Range("G11:G" & n).Value = Range("G" & n).Offset(0, -2) * Range("G" & n).Offset(0, -1)
End Sub

'请教：我想通过VBA实现根据"录入"表的信息做成表Sheet2，做成的样子是Sheet3。请指教，谢谢！
'问题:1我直接将表"录入"第6行的数据根据表头对应写入Sheet2表里第11列，下面行依次填入，为何第一行的数据总是覆盖了Sheet2表的第10行的标题？
'2 Sheet2表里G列根据"录入"表如何设置数据区域内整列的VBA公式填写：即E列单价乘以F列数量的公式，VBA公式该怎么填写？
'3 Sheet2表里的单价是"录入"表里的单价*40%/1.3，Sheet2表中E列VBA公式该怎么填写？
'如可以，能否帮做下完整过程，结果就和Sheet3效果一样，附件传不上去，请帮留下邮箱地址，我发过来。谢谢！