如何将一个范围内有一些空白单元格的值复制并粘贴到excel中的新列中

Question

我有两个工作表，其中一个我收集有关金额和日期的交货数据。某些送货频率是每周一次，每两周一次，有些是每月一次。 我需要将过去一周的交货量放入新的工作表中，但是如果它不在7天窗口之内，请将该单元格留空。 然后，在一周的时间里，覆盖此信息并将新金额粘贴到新列中，这样我就可以收集平均投放数据。因此，我可能每周的数据范围从“ F3..Z3”开始，但是每两周的数据只会是其中的一半

我已经编写了vba代码来确定传递窗口并进入新的工作表，但是我无法获取要复制到新列中的数据

我都尝试过-

Range("B:B").Select
Selection.Copy
Range("F:F").End(xlToLeft).Offset(0, 1).Select
 Selection.PasteSpecial Paste:=xlPasteValues, operation:=xlNone, skipblanks:=True, Transpose:=False

还有-

Dim LastRow As Long
LastRow = Sheets("01042019").Cells(Rows.Count, 1).End(xlUp).Offset(1).Row


Sheets("01042019").Range("B3").Copy
Sheets("01042019").Range("XFD3").End(xlToLeft).Offset(0, 1).PasteSpecial Paste:=xlPasteValuesAndNumberFormats

可以帮忙吗？