マクロを実行するときに最初の行を無視する

Question

次のマクロを使用して、あるシートから別のシートにデータを転送します。しかし、私は最初の行が日付（変更された日付）である必要がありますので、一番上の行を無視するマクロが必要です。私はオンラインで見ましたが、解決策を見つけることができませんでしたか？別のノートで

Sub HistoricMD() 

    ActiveSheet.Range("K7:K15").Copy 
    Sheets("Historic MD").Range("IV1").End(xlToLeft).Offset(1, 1).PasteSpecial xlValues 
    Application.CutCopyMode = False 

End Sub 

私はちょうど日付が変更を取得する

=IF(B2 >0,NOW(),"") 

を追加した、他のより良いソリューションが良いでしょう！

ありがとうございました:)

Answer 1

は、あなただけのこれを変更することはできません：

Sheets("Historic MD").Range("IV1").End(xlToLeft).Offset(1, 1).PasteSpecial xlValues 

この目的のために：

Sheets("Historic MD").Range("IV2").End(xlToLeft).Offset(1, 1).PasteSpecial xlValues 

Answer 2

アルターを次のように：私たちは、2行目に貼り付けられます（あなたとすでにオフセットを使用していました）、手動で行1に日付を入れてください：

Sub HistoricMD() 

    ActiveSheet.Range("K7:K15").Copy 
    Sheets("Historic MD").Range("IV1").End(xlToLeft).Offset(1, 1).PasteSpecial xlValues 
    Sheets("Historic MD").Range("IV1").End(xlToLeft).Offset(0, 1).value = Date 
    Application.CutCopyMode = False 

End Sub