From: Ashish Dabral <[email-masked]>
To: subir <[email-masked]>
Date: Sat, 6 May 2017 20:30:36 +0530 (IST)

Option Explicit 

Sub FindValue() 

Dim Findwhat As String, address As String 

Dim Frs As Range, rs As Range, fcount As Long 

Findwhat = Application.InputBox("Enter what you want to find", "Find What") 

If Len(Findwhat) > 0 Then 

Range(Range("N2:O2"), Range("N2:O2").End(xlDown)).Clear 

Set Frs = Range("A1").CurrentRegion 

Set rs = Frs.Find(what:=Findwhat) 

If Not rs Is Nothing Then 

address = rs.address 

Do 
Range("N2").Offset(fcount).Value = rs.Value 
Range("O2").Offset(fcount).Value = rs.address 
Set rs = Frs.FindNext(rs) 
fcount = fcount + 1 

Loop While Not rs Is Nothing And rs.address <> address 

End If 

End If 

End Sub