如果date等于月份，则使用VBA复制列

如果数据匹配，我想有一个macros来复制数据列。 每个月报表都会吐出当前的月份数据，而且我必须将B列数据复制并粘贴到与当月相同date的列中。

1. 在单元格A2中inputdate。 月份的第一天总是表示简单的月份。 例如： 7/1/17
2. B列有所有需要复制的date。 B4：B660
3. 在H3到S3的列是一年的月份。 （H3） 7/1/2017 （I3） 8/1/2017 （J3） 9/1/2017 （K3） 10/1/2017 …（S3） 6/1/2018

所以，如果我在A2中input一个date，如果它等于H3到S3中的一个单元格中的同一date，则在H4到S4中复制该date下的列B.