place valuela in next available cell with fixed cell ref

[redspanna]

I have following code to search through a column to find matched text string....value (in next column) is then copied into first available vell in column C

Set mycell = Sheets("Sorted Data").Range("A:A").Find(What:="*ASDASTORESPLC*") 
While Not mycell Is Nothing
mycell.Offset(0, 1).Copy Range("C65536").End(xlUp)(-2)
mycell.Clear
Set mycell = Range("A:A").FindNext
Wend

How to change code to paste copied value into next available cell in Column C starting from a certain cell range..
for example C22

Thanks in advnce

 

[Fluff]

How about

   Dim Mycell As Range
   Dim NxtRw As Long
   NxtRw = Application.max(22, Range("C" & Rows.Count).End(xlUp).Offset(1).Row)
   Set Mycell = Sheets("Sorted Data").Range("A:A").Find(What:="*ASDASTORESPLC*")
   While Not Mycell Is Nothing
      Mycell.Offset(0, 1).Copy Range("C" & NxtRw)
      Mycell.Clear
      NxtRw = NxtRw + 1
      Set Mycell = Range("A:A").FindNext
   Wend

 

[redspanna]

Thank you

 

[Fluff]

You're welcome