Which of the hardcoding you're concerned about?
This:
'Selection.Find(What:="2" '
or
'Range("C202:F202").Select'

From your post i'd gather that the latter is your concern. Does it
mean that the Find method you refer to will always be searching for
'2' in a specified range? If it's not the case, then where the
variables (values to search for) are coming from?

Maybe this would get you started (if I've understood correctly your
post, though):

Sub TryFindCell()
Dim myResultRange As Range
Set myResultRange = ActiveSheet.UsedRange.Find(what:="2")

If myResultRange Is Nothing Then
Debug.Print "There is no such value on this sheet"
Else
Debug.Print "Found value in cell: " & myResultRange.Address
End If

End Sub

So, now if successful, the variable myResultRange holds the range
properties of the cell where the first instance of the searched value
("2" in this instance) was found. Check the Immediate window.


On Jul 15, 10:56*am, Pluggie
wrote:
Part of my macro needs to delete records starting from a row which is
determined by a find-function call. Naturally... the resultcell of this
find-function will vary each time.
How do I make sure that the resultcell of the first recorded instance of the
macro is not hardcoded into the macro?

Here is the sample of code I have now (last 7 rows of the code).
This should be modified so that it does what I want.

----------------------------code----------------------------------
* * Columns("A:A").Select
* * Selection.Insert Shift:=xlToRight
* * Range("A2").Select
* * ActiveCell.FormulaR1C1 = "1"
* * Range("A3").Select
* * ActiveCell.FormulaR1C1 = "2"
* * Range("A2:A3").Select
* * Dim LastRow2 As Long
* * LastRow2 = Range("G" & Rows.Count).End(xlUp).Row
* * Selection.AutoFill Destination:=Range("A2:A" & LastRow2)
* * Rows("2:2").Select
* * Range(Selection, Selection.End(xlDown)).Select
* * Selection.Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess, _
* * * * OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
* * * * DataOption1:=xlSortNormal
* * Columns("B:B").Select
* * Selection.Find(What:="2", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
* * * * :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:= _
* * * * False, SearchFormat:=False).Activate
* * Range("C202:F202").Select
* * Range(Selection, Selection.End(xlDown)).Select
* * Selection.ClearContents
----------------------------end-of-code-----------------------------

Anybody have the solution?

Regards,

Pluggie.