find関数を使用して行全体を削除するにはどうすればよいですか？

Question

私は、アパート複合施設のデータを含むデータシートを持っています。テナントを追加、編集、削除するためのuserformsを作成しました。しかし、私はそれを削除する方法は、私のデータにギャップを残し、シートをきれいに見えるように手ですべての行を削除して削除する必要が非常に迷惑になります。

Sheet1.Select 

Dim FndRng As Range 

Set FndRng = Sheet1.Columns("C:C").Find(What:=cboName.Value, LookIn:=xlFormulas, LookAt:=xlPart, _ 
      SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False) 

If Not FndRng Is Nothing Then 'successful find 
FndRng.Offset(0, -1).Value = "" 
FndRng.Value = "" 
FndRng.Offset(0, 1).Value = "" 
FndRng.Offset(0, 2).Value = "" 
FndRng.Offset(0, 3).Value = "" 
FndRng.Offset(0, 4).Value = "" 
FndRng.Offset(0, 5).Value = "" 
FndRng.Offset(0, 6).Value = "" 
FndRng.Offset(0, 7).Value = "" 
FndRng.Offset(0, 8).Value = "" 
FndRng.Offset(0, 9).Value = "" 
FndRng.Offset(0, 10).Value = "" 
FndRng.Offset(0, 11).Value = "" 

cboName.Value = "" 
txtCode.Value = "" 
cboGrade.Value = "" 
txtPhone.Value = "" 
txtDormitory.Value = "" 
cboPhase.Value = "" 
cboCourse.Value = "" 
cboStatus.Value = "" 
txtGrad.Value = "" 
txtCsd.Value = "" 
txtSsn.Value = "" 
txtComments.Value = "" 
cboSex.Value = "" 

Else ' unable to find the value in "Name" 
MsgBox "Name not found in Datasheet, Do not change the name while editing the profile.", , "Name not Found" 
End If 

End Sub 

しかし、わかるように、データには大きなギャップがあります。 私は意味

fndRng.row.delete 

か何かのような何かをしたいあなたは私の思考プロセスをたどることができれば、それ？

ご協力いただきありがとうございます。

Answer 1

代わりの

fndRng.row.delete 

使用

FndRng.EntireRow.Delete