VBAの修正・上書きについて

質問

下記、コードにてVBAで作成したユーザーフォームにエクセルで管理している
顧客名簿を表示させ、修正をした後、元のセルに修正したものを
上書きするというコードを書きたいのですが、
実行時エラーにて作動しません。
下記をどのように、直せばいいのかご指摘お願いします。
※その他に、検索ボタンのプロシージャもありますが、こちらに載せたほうが
いいのでしょうか?

（修正ボタンを押したときのプロシージャ）
Private Sub CommandButton1_Click()

Dim gyou As Long
Dim z As Object
Dim i As Integer

With Worksheets("Sheet1")

gyou = z.Row

For i = 1 To 16
Cells(gyou, i).Value = Me.Controls("TextBox" & i).Text
Next

End With

TextBox1.SetFocus

End Sub

回答No.1

imogasi

コードだけ挙げて、何をしたいかを回答者に推測させないこと。
文章でその概略を説明すること。
＞gyou = z.Row　が不明。このままではエラーになるのは明らか。
エラーの個所とエラーコードも、質問に書いて質問すること。
ーー
推測でやって、下記で動くことは動くのでは。
Private Sub CommandButton1_Click()
Dim gyou As Long
Dim z As Object
Dim i As Integer
With Worksheets("Sheet1")
gyou = Range("A65536").End(xlUp).Row + 1
MsgBox gyou
For i = 1 To 3
Cells(gyou, i).Value = Me.Controls("TextBox" & i).Text
Me.Controls("TextBox" & i).Text = ""
Next
End With
TextBox1.SetFocus
End Sub
では一応動く。最終行の次に、テキストボックスの文字列を各列にセットする（追加していくような感じ）

テキストボックスを３つに簡略化。質問するときは例として、テストの手間がかかるので、気を使ってそれぐらいにすべきだ。

補足

ご指摘頂きありがとうございます。
VBAに関してド素人の為、質問する際の様々な不足、申し訳ありませんでした。
例で挙げて頂いたとおり、コードを書き直し、実行するとエラーは出ずに
動きました。
そこで、再度質問をさせて下さい。
修正した後、元あった行に上書きをしたいのですが、
上書きはされず、追加されてしまいます。
これは何故でしょうか。
また、回答頂いたテキストボックスの文字列を各行にセットとは
番号.value =""
というようなかんじでしょうか?

知識が浅く、申し訳ありません。