Exported PDF to Excel need to copy data by row VBA

[LNG2013]

I have many 100's of PDFs that I am going to be using Adobe's Acrobats function to export to excel.
In testing this has worked wonderfully.

I am now looking to pull data from these excel files.
I need help with VBA code.

First thing I did was unmerge all the cells to make it easier to find stuff.
In column A the identifier I am using to locate the desired rows to copy are numbers.
Example 1.1, 1.2, 1.3, 1.4 going until 1.9. The first digit can max out at 20, so 20.9 would be the last.
Next once located I would want to copy any of these rows to a new sheet.

THANK YOU in advance for help with any part of the code!

 

[LNG2013]

I got it Posting in case helpful for anyone else:

Sub UnmergeandFormat()
'
' This Macro Unmerges the cells and Formats Giving a column header
'

'
    Cells.Select
    Selection.UnMerge
    Rows("1:1").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Range("A1").Select
    ActiveCell.FormulaR1C1 = "Number"
    Range("F1").Select
    ActiveCell.FormulaR1C1 = "Lang"
    Rows("1:1").Select
    Selection.AutoFilter
End Sub


Sub DelBlankRows()
'Deleting so filtering works

On Error Resume Next
    Range("A2:A5000").Select
    Selection.SpecialCells(xlCellTypeBlanks).EntireRow.Delete


End Sub


Sub FilterRowsAndCopy()
ActiveSheet.Range("A1").AutoFilter Field:=1, Criteria1:=">1", _
    Operator:=xlAnd, Criteria2:="<21"
     Cells.Select
    Selection.Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.Paste
End Sub

 

[Joe4]

Note that in most cases, it is not necessary to "Select" ranges in order to work with them. And, selecting range usually slows the code down.
It is best to try to eliminate "Select" statements, where possible.

So sections like this:

    Range("A1").Select
    ActiveCell.FormulaR1C1 = "Number"
    Range("F1").Select
    ActiveCell.FormulaR1C1 = "Lang"

can be simplified/combined to this:

    Range("A1").FormulaR1C1 = "Number"
    Range("F1").FormulaR1C1 = "Lang"

 

[LNG2013]

Note that in most cases, it is not necessary to "Select" ranges in order to work with them. And, selecting range usually slows the code down.
It is best to try to eliminate "Select" statements, where possible.

So sections like this:

    Range("A1").Select
    ActiveCell.FormulaR1C1 = "Number"
    Range("F1").Select
    ActiveCell.FormulaR1C1 = "Lang"

can be simplified/combined to this:

    Range("A1").FormulaR1C1 = "Number"
    Range("F1").FormulaR1C1 = "Lang"

Thank you for the tip!