エクセルVBAの転記について

質問

エクセル2013VBAで最終行を取得しての転記が上手くいきません。どのようにすれば良いかご教授ください。

簡単なサンプルを下記します。

Sub サンプル入力からのDBへの転記()

Dim Sh1 As Worksheet
Dim Sh2 As Worksheet
Dim myRow As Long

Set Sh1 = Worksheets("サンプル入力")
Set Sh2 = Worksheets("サンプルDB")

With Sh2
myRow = Range("A" & Rows.Count).End(xlUp).Row + 1
.Range("A" & myRow).Value = Sh1.Range("D4").Value
.Range("B" & myRow).Value = Sh1.Range("F4").Value
End With

End Sub

入力内容を変えないテストでは
(1)実行するとDBへの転記は問題なく出来ます。
(2)継続してマクロを実行しても問題なく転記が行われ、同じデータが蓄積されていきます。

入力内容を変更して引き続きマクロを実行すると挙動不審に陥ります。
現象としては
(1)初めの行に何度も重ねて転記を行う。
(2)空白行を作り、その行に何度も転記を行ってしまう。
(3)空白行を作り、それ以降転記を実行し蓄積を行ってしまう。

入力シートには結合セル、リストを使用していますが、原因究明を行う中でこれが原因とは思えませんでした。

これがクリアできないと先に進めません。ぜひお力を貸してください。
宜しくお願い申し上げます。

回答No.1

eden3616 · ベストアンサー

myRow = Range("A" & Rows.Count).End(xlUp).Row + 1
のRangeの手前にドット「.」が抜けているかと。
　　　　　↓
myRow = .Range("A" & Rows.Count).End(xlUp).Row + 1

お礼

なるほど 使い慣れないものですから気がつきませんでした 早速の回答ありがとうございます 今晩家で確認します