Dim x As Single
x = Application.WorksheetFunction.CountA([D:D])
'从何处复制?由于你没说明,不好写代码,此处写复制的代码
Cells(x+1,4).Paste