求助，如何实现条件自动填充

lance11

各位大神，求助以下实现方式：
在 销售收款表复制  内进行数据复制进去
在 往来单位应收款  内A-F列进行数据复制进去

可自动实现:
往来单位应收款 表
1.G列 往来单位 名称  =  往来单位编号 名称（如001 公司A  中间空格）
2.I 列实现填充当前日期
3.J 列实现匹配  <销售收款表复制> 中的 单据日期
4.实现H列  最长欠款天数 =当前天数-单据天数（自动实现成天数）
欠款大于5天的单位列表
5.根据 <往来单位应收款 > 最长欠款天数大于5天的，实现填充 填充 往来单位编号 名称    和应收款余额  以及最长欠款天数

Jaofuan

Sub jaofuan()
Q = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
With Sheet2
x = .Cells(Rows.Count, 1).End(xlUp).Row
L = 2
For C = 7 To x
For A = 6 To Q
.Cells(C, "G") = .Cells(C, "B") & " " & .Cells(C, "C")
.Cells(C, "I") = Date
.Cells(C, "H").FormulaR1C1 = "=RC[1]-RC[2]"
If .Cells(C, "G") = Sheet1.Cells(A, "A") Then
.Cells(C, "J") = Sheet1.Cells(A, "D")
End If
Next
If .Cells(C, "H") >= 5 Then
   Sheet3.Cells(L, "A") = .Cells(C, "G")
   Sheet3.Cells(L, "B") = .Cells(C, "E")
   Sheet3.Cells(L, "C") = .Cells(C, "H")
   L = L + 1
   End If
Next
End With
End Sub