How to get the row number for my cell using VBA - vba

Question

So i have the following words in two columns and what I'm trying to do is create an input box where I find the word and extract it as well as the row number. I was able to do it once but now it keeps giving me a debug error which I can't figure out.
Any help would be appreciated(ideally won't have to change much of the code :P)
The any
Quick of
Brown my
Fox lazy
jumps dogs
Over
Option Explicit
Option Base 1
Sub AddMessage()
Dim i As Integer, j As Integer, HT As Variant, nr As Integer, nc As Integer, c As Integer, rng1 As Range, rng2 As Range, row As Integer, rows As Integer
nr = Selection.rows.Count
nc = Selection.Columns.Count
HT = InputBox("Enter column letter:")
Set rng1 = Range("E1:E100")
Set rng2 = Range("F1:F100")
For i = 1 To nr
For j = 1 To nc
If ActiveCell(i, j) = HT Then
Selection.Cells(i, j - 4) = HT
If Cells(i, 1).Value = HT Then
row = Application.WorksheetFunction.match(HT, rng1, 0)
Selection.Cells(i, j - 2) = row
Else
If Cells(i, 2).Value = HT Then
rows = Application.WorksheetFunction.match(HT, rng2, 0)
Selection.Cells(i, j - 2) = row
End If
End If
Next j
Next i
End Sub

Answer 1

you were missing an End If
proper indentation would have helped you figuring it out:
Sub AddMessage()
Dim i As Integer, j As Integer, HT As Variant, nr As Integer, nc As Integer, c As Integer, rng1 As Range, rng2 As Range, row As Integer, rows As Integer
nr = Selection.rows.Count
nc = Selection.Columns.Count
HT = InputBox("Enter column letter:")
Set rng1 = Range("E1:E100")
Set rng2 = Range("F1:F100")
For i = 1 To nr
For j = 1 To nc
If ActiveCell(i, j) = HT Then
Selection.Cells(i, j - 4) = HT
If Cells(i, 1).Value = HT Then
row = Application.WorksheetFunction.Match(HT, rng1, 0)
Selection.Cells(i, j - 2) = row
Else
If Cells(i, 2).Value = HT Then
rows = Application.WorksheetFunction.Match(HT, rng2, 0)
Selection.Cells(i, j - 2) = row
End If '<<<=== missing End If
End If
End If
Next j
Next i
End Sub

Answer 2

Don't know if in your case you'll need a selection, (I recommend not to), here's another piece of code without 'activecells' and 'selections'
Sub tst()
Dim HT As String, Rng As Range
HT = InputBox("Give word to find:")
If Trim(HT) <> "" Then
With Sheets("Sheet1").Range("E1:F100")'assume your data is on Sheet1
Set Rng = .Find(What:=HT, After:=.Cells(.Cells.Count), LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
If Not Rng Is Nothing Then
Sheets("Sheet1").Cells(Rng.Row, 2) = Rng.Value: Sheets("Sheet1").Cells(Rng.Row, 4) = Rng.Row
Else
MsgBox "No words found"
End If
End With
End If
End Sub