Multitude of random errors when cycling through workbooks in a folder to copy a range

LXN,
Welcome to the forum!
Please use code tags with your code as per forum's rule.
You have few errors and I guessed some of the lines

Option Explicit

 Sub OpenFiles()

 Dim MyFolder As String
 Dim MyFile As String
 Dim wbold As Object
 Dim wbnew As Object

 Application.ScreenUpdating = True
 Application.DisplayAlerts = True
 Application.EnableEvents = True
 Application.Calculation = xlCalculationManual

 MyFolder = "C:\Users\ALRH\Desktop\Batches"

 MyFile = Dir(MyFolder & "\*.xl*")

 Set wbold = ThisWorkbook

 Do While MyFile <> ""
 Workbooks.Open Filename:=MyFolder & "\" & MyFile

 Set wbnew = ThisWorkbook

 Sheets(1).Range("H25:H90").Copy
 wbold.Sheets("Shore Tank Report").Range("I25").PasteSpecial xlPasteValues

  Sheets(1).Range("C7:H7").Copy
  wbold.Cells("D7").PasteSpecial xlPasteValues

 Workbooks(wbnew).Close SaveChanges:=False

 On Error GoTo 0

 MyFile = Dir
 Loop

 Application.ScreenUpdating = True
 Application.DisplayAlerts = True
 Application.EnableEvents = True
 Application.Calculation = xlCalculationAutomatic

 End Sub

You have two

Set wbold = ThisWorkbook


 Set wbnew = ThisWorkbook

You need to separate between the source and destination books. For ease of reading, you should assign the source book as sourcebook=workbook.open......

Thanks of the response! I have edited my post, and changed wbold/wbnew to destinationbook/sourcebook, but I'm not sure how you're telling me to assign the variables. Could you clarify? (I made a reply to my own post by accident in stead of yours. How do I delete that?)

Second line

MyFolder = "C:\Users\ALRH\Desktop\Batches"
     MyFile = Dir(MyFolder & "*.xl")  'Excel 2003 file types to import
   
    Do Until MyFile = ""
    
        Set sourceBook = Workbooks.Open(MyFolder & MyFile)
        
         With sourceBook.Worksheets(1)
'Then the rest of the code

I got a 'type mismatch' here:

Workbooks(wb).Sheets("Shore Tank Report").Range("I25:I90").PasteSpecial xlPasteValues

Why could that be?

Thanks of the response! I have edited my post, and changed wbold/wbnew to destinationbook/sourcebook, but I'm not sure how you're telling me to assign the variables. Could you clarify?

You start with this line

 Set wb = ThisWorkbook
    Set shtMy = Sheets("Master") 'Imports the data into the activesheet. Change to suit

This is where the code will be copied in to

And then you head to

http://www.rondebruin.nl/win/addins/rdbmerge.htm

There are many lines that need to be changed, so I thought if you follow Ron's code, it will give you a good start, instead of doing by piecemeal.

But that link says it's an add-in, not a code?

Okay!
When you click the link, click again the excel tips tab, then 3rd from the list(Topics)-choose copy/paste/merge examples

I just got the code running actually! VBA didn't like that I had

workbooks(variable).open

When the variable was a workbook, and not a name.

Changing it to

variable.open

in all such places fixed the problem, along with a few other minor changes.