VBAの行を削除する時にデータがずれてしまいます。

Question

A.xlsmというファイルに下記のような、CSVを開いて１行ずつチェックし、A.xlsmに条件に合う行をコピー＆ペーストし、条件に合わない場合はA.xlsmの空白になる１行を削除するプログラムを書いています（プロシージャの中の抜粋です）。
A.xlsmのWSというワークシートの１行目には、画像のようにデータの見出しを記述しており、J1にも元々はコード２という見出しをつけているのですが、マクロを実行すると画像のようにコード２という名前がhahaha24というコードの中身に書き換わってしまい困惑しています。

ステップ実行をしてみたところ、
ws.Cells(firstLine + 1).Rows.Delete
が最初に実行されたときJの列のデータが１行上にずれていることは分かったのですがなぜその列だけがずれるのかが分かりません。
解決方法、ご教示よろしくお願い致します。

Dim ws As Worksheet
Set ws = Workbooks("A.xlsm").Worksheets("WS")
Dim copyI As Long
copyI = 2
Dim count As Long
count = 0
Dim firstLine As Long
Dim varFileName As Variant
'↓補足に書きました誤記修正しました
Dim ws2 As WorksheetSet 
Set ws2 = ThisWorkbook.Worksheets(1)
'↑補足に書きました誤記修正しました
varFileName = dCsv
If varFileName = False Then
Exit Sub
End If
Workbooks.Open Filename:=varFileName

firstLine = ws.Cells(Rows.count, "A").End(xlUp).Row

DoEvents
With CreateObject("VBScript.RegExp")
.Pattern = "aaa|bbb|ccc|"
Do While ActiveWorkbook.Worksheets(1).Cells(copyI, 1).Value <> ""

Dim Rng As Range

Set Rng = ws.Columns(1).Find(What:=ActiveWorkbook.Worksheets(1).Cells(copyI, 1).Value, LookIn:=xlValues, LookAt:=xlWhole)
If Rng Is Nothing _
And ActiveWorkbook.Worksheets(1).Cells(copyI, 1).Value = 1 _
And ActiveWorkbook.Worksheets(1).Cells(copyI, 2).Value = "Yes" _
And ActiveWorkbook.Worksheets(1).Cells(copyI, 3).Value = "Yes" _
And ActiveWorkbook.Worksheets(1).Cells(copyI, 4).Value = "Yes" _
And Not .test(ActiveWorkbook.Worksheets(1).Cells(copyI, 5)) _
And Not .test(ActiveWorkbook.Worksheets(1).Cells(copyI, 7)) Then
ActiveWorkbook.Worksheets(1).Rows(copyI).Copy
ws.Rows(firstLine + 1 - count).PasteSpecial (xlPasteAll)
Else
ws.Cells(firstLine + 1).Rows.Delete
count = count + 1
End If
copyI = copyI + 1
firstLine = firstLine + 1
Loop
End With
Application.ScreenUpdating = True

Comments

[kuma_kuma_]

今回のA.xlsmの対象シートの関連性を教えてください
Workbooks("A.xlsm").Worksheets("WS")
ThisWorkbook.Worksheets(1)
ActiveWorkbook.Worksheets(1)
書き方は別ですが同じシートを見ている可能性があります
ActiveWorkbook.Sheets("WS")
等記載を合わせたほうが良いかと思います。

[meg_]

コードは「コードの挿入」で記入してください。

[meg_]

デバッグはされましたか？　ステップ実行して不具合の原因を確かめる事が出来ます。

[spbros]

Dim ws As WorksheetSet ws = ThisWorkbook.Worksheets(1)
は
Dim ws2 As Worksheet
Set ws2 = ThisWorkbook.Worksheets(1)
の間違いです・・、すみません・・。

[spbros]

>>kuma_kuma_
ActiveWorkbook.Worksheets(1)のセルを
Workbooks("A.xlsm").Worksheets("WS")にコピーしたいと思っています。

[spbros]

>> meg_
すみません、「コードの挿入」で書き換えました。
全体的なデバッグはデバッグのウインドウがでなかったのでしていません。
ステップ実行は今知りました。
調べながらやってみます。

[kuma_kuma_]

Set ws = Workbooks("A.xlsm").Worksheets("WS")
Set ws2 = ThisWorkbook.Worksheets(1)
この後
debug.print ws.name
debug.print ws2.name
debug.print ws.Parent.name
debug.print ws2.Parent.name
してみて下さい。ちゃんと目的のシートが選ばれていますか？

[spbros]

＞＞ kuma_kuma_
ありがとうございます。
やってみたのですが何も起こりませんでした。

[kuma_kuma_]

?シートとファイルの名前イミディエイトウィンドウに表示されていない？
https://tonari-it.com/excel-vba-debug-print/
https://www.239-programing.com/excel-vba/basic/basic024.html

[spbros]

ステップ実行をしてみたところ、
ifのところでtrueの時には正常にコピーペースト出来ているのですが、
falseの時、
count = count + 1
が黄色くなった時にJ１が書き換わりました。
その後もfalseのたびに１行目の、前に書き換わった列の右の列の値が書き換わっています。

[kuma_kuma_]

Set ws = Workbooks("A.xlsm").Worksheets("WS")
Set ws2 = ThisWorkbook.Worksheets(1)
ActiveWorkbook.Worksheets(1)
まだ記載方法３種類で残っていますよ。

[spbros]

すみません、イミディエイトウインドウが非表示になっていました。
実行してみたところ、想定通りのbook,sheetが出力されました。

[spbros]

コードの実行したところ、
falseの時に、
count = count + 1
が黄色くなった時に、Jの列全体が１行上にずれているようです。

[kuma_kuma_]

ActiveWorkbook.Worksheets(1)の記載を
ws か ws2 に変更して下さい

あと
ws.Cells(firstLine + 1).Rows.Delete
行が削除される
'count = count + 1　'ここは要らない 1行移動する必要なし

[spbros]

count = count + 1を消すと条件がfalseの時にペースト先のシートに空白の行が出来てしまい、この後、ペーストしたデータをすべて使った処理をする時に支障が出てしまいます・・。

count = count + 1を消してみたのですがJの列は１行上にずれてしまいます。

Answer 1

ws.Cells(firstLine + 1).Rows.Delete
でなぜずれるのかは分かりませんでしたが、
そもそも必要ないコードという事に気づき、削除したら意図する動作にすることが出来ました。
ご教示くださったお二方、ありがとうございました。