请教！这段代码如何写？

wsmnjj1

表的数据流程是这样的：每日在“当日数据”表中复制新数据，利用vlookup在“sheet5”中得到数据，在分别将“公司存款”，“机构存款”，“同业存款”复制到"13公司","13机构","13同业"表中求日均，自己写的代码如下：
Sub 日均()
Sheets("sheet5").Select
Range("H28:H32").Select
Selection.Copy
Sheets("13公司").Select
Range("B24").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, Transpose:=True
Sheets("sheet5").Select
Range("D28:D32").Select
Selection.Copy
Sheets("13机构").Select
Range("B24").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, Transpose:=True
Sheets("sheet5").Select
Range("E28:E32").Select
Selection.Copy
Sheets("13同业").Select
Range("B24").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, Transpose:=True
End Sub
问题是如何在红色代码中更改一下便能自动根据“当日数据”中日期复制到"13公司","13机构","13同业"表中相同的日期单元格中，由于本人vba入门请指点，多谢！

展翅

试下这个：

Sub 日均()
Dim i As Integer
i = DateDiff("d", "2013 - 1 - 1", Now) + 4

Sheets("sheet5").Select
Range("H28:H32").Select
Selection.Copy
Sheets("13公司").Select
Range("B" & i).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, Transpose:=True

Sheets("sheet5").Select
Range("D28:D32").Select
Selection.Copy
Sheets("13机构").Select
Range("B" & i).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, Transpose:=True

Sheets("sheet5").Select
Range("E28:E32").Select
Selection.Copy
Sheets("13同业").Select
Range("B" & i).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, Transpose:=True

Application.CutCopyMode = False

End Sub

展翅

利用了三个表的日期位置都统一，所以计算日期的间隔天数来定位行。