Satır ekleme kodu hata veriyor

[MUTLUXXX]

Private Sub CommandButton5_Click()
On Error Resume Next
Sheets("GİRİŞLER").Select
Sheets("GİRİŞLER").Cells(6, 11) = TextBox8.Text
Sheets("GİRİŞLER").Cells(6, 12) = TextBox9.Text

For x = [A65536].End(3).Row To 3 Step -1
If Cells(x, 1) <> Cells(x - 1, 1) Then Rows(x & ":" & x + 1).Insert Shift:=xlDown
Next
MsgBox "KAYIT &#304;&#350;LEM&#304;N&#304;Z TAMAMLANDI ", vbInformation
ActiveWorkbook.Save
End Sub

Userformda textler &#252;st&#252;nden sayfada alt&#305;nc&#305; sat&#305;ra veri kaydettikten sonra sat&#305;r eklemem gerekiyor. ancak bir t&#252;rl&#252; olmad&#305; yard&#305;mc&#305; olacak arkada&#351;lara t&#351;k ediyorum.

 

[MUTLUXXX]

Deneyerek Buldum

Range("a6").Select
Selection.EntireRow.Insert

Hangi hücrenin üstüne satır eklemek istiyorsak onu yazıyoruz.