ｍａｂｏのｂｌｏｇです。

　手強いＶＢＡを少しやっつけました。

　以前にしたことを少し思いだしましたが、未だ手強いのには、

　変わりありません。

　昨日、やっつけたのは、一定の範囲のセルを表の最下行に

　追加でペーストするというものです。

　ただ、これだけで、何時間もかかりました。できてみると、

　Sub コピー()

Worksheets("Sheet1").Range("K133:O133").Copy
Worksheets("Sheet1").Range("C" & （Range("C4").End(xlDown).Row + 1）).-
　　　　　PasteSpecial Paste:=xlPasteValues, -
　　　　　　　　Operation:=xlNone, SkipBlanks:=False, Transpose:=False

　End Sub

　何のことはない、たった、２行です。

　K133～O133のセルに書かれているセルの値だけを、表の

　最下行にコピーするだけです。
　
　表の最下行を

　　　Range("C4").End(xlDown).Row

　で求め、その下を＋１で求めます。

　エクセルの番地は、英語と数字です。この番地を

　Range("C" & （Range("C4").End(xlDown).Row + 1）)

　で＆を使って作ります。