|First, a few coding tips:|
1 - Rarely do you have to Select an object to perform a VBA or Excel task on it. You can usually access the object directly. It's much more efficient that way.
For example, this:
Can be condensed down to this:
2 - The reason your data is being copied in reverse order is becasue you are inserting it and shifting the other data down, as opposed to pasting it after the last piece of data in the column.
3 - I don't see any comments in your code. Comments not only help others that are reading the code understand what the author is doing, but - and maybe more importantly - they help the author remember what they are trying to do. You might get this code working and then not look at it for a year. Then a time comes when you need to make a change and you have to spend (waste) time studying the code trying to figure out what you were thinking a year ago before you can make the changes. Comments can help the author (and others) figure out the code much quicker.
Finally, while I commend you on your hard work, I think the use of FindFormat is a little, shall we say, robust for this task. In other words, I think you're doing it the hard way - but I'll bet you learned a lot!
How about something as simple as this:
Dim last_sht1_rw, nxt_sht2_rw As Integer
Dim c As Range
'Determine last cells in Sheet1 Column A
last_sht1_rw = Sheets(1).Range("A" & Rows.Count).End(xlUp).Row
'Loop through checks
For Each c In Sheets(1).Range("A36:A" & last_sht1_rw)
'Check if Strikethrough Font is False
If c.Font.Strikethrough = False Then
'If yes, find next empty row in Sheets2 Colmn A
nxt_sht2_rw = Sheets(2).Range("A" & Rows.Count).End(xlUp).Row + 1
'Copy Sheet1 A:F to Sheet2
Sheets(1).Range("A" & c.Row & ":F" & c.Row).Copy _
Destination:=Sheets(2).Range("A" & nxt_sht2_rw)