请万能的贴吧大神帮忙解决，急，在线等！

是不是这个思路？
新增工作表
复制模板
对应填充位置复制
换行变量+1

Sub FULINGJIABING()
Dim FU As Range, LING As Byte
On Error Resume Next
Application.DisplayAlerts = False
For Each FU In Range("A2:A" & Range("A" & Rows.Count).End(xlUp).Row)
Worksheets.Add(, Sheets(Sheets.Count)).Name = Format(FU, "YYYY-MM-DD")
Worksheets("模板").UsedRange.Copy
With Sheets(Format(FU, "YYYY-MM-DD")).Range("A1")
.PasteSpecial xlPasteAllUsingSourceTheme
.PasteSpecial xlPasteValues
.PasteSpecial xlPasteColumnWidths
.Range("C4") = Worksheets("总表").Range("F" & LING + 2)
.Range("F4") = Worksheets("总表").Range("G" & LING + 2)
.Range("K5") = Worksheets("总表").Range("E" & LING + 2)
.Range("D16") = Worksheets("总表").Range("L1") & ":" & Worksheets("总表").Range("L" & LING + 2) & Chr(10) & Worksheets("总表").Range("M1") & ":" & Worksheets("总表").Range("M" & LING + 2) & Chr(10) & Worksheets("总表").Range("N1") & ":" & Worksheets("总表").Range("N" & LING + 2)
End With
LING = LING + 1
Next
End Sub