Correction required in Code

[RUPESHRH]

DEAR EXPERTS

I HAVE GETTING ERROR IN CODING PLEASE BE CORRECT

Sub Copy_Data()

Application.ScreenUpdating = False

Dim rangeStart As Integer
Dim rangeEnd As Integer
Dim rangeCalc As Integer
Dim rangeColumn As Integer
Dim rowSheet1DataStart As Integer
Dim rowSheet1DataEnd As Integer
Dim priceOneResult As Integer
Dim priceTwoResult As Integer

Dim dataRange As Range
Dim foundDataRange As Range

rowSheet1DataStart = 5
rowSheet1DataEnd = Sheet1.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row


Set dataRange = Sheet1.Range("A" & CStr(rowSheet1DataStart) & ":A" & CStr(rowSheet1DataEnd))

rangeStart = Sheet1.Range("BA2").Value
rangeEnd = Sheet1.Range("BB2").Value
rangeColumn = 15

' create the line with the range values, for every 100 step
For rangeCalc = rangeStart To rangeEnd Step 100

Data_Opening.Cells(22, rangeColumn).Value = rangeCalc
Data_Opening.Cells(22, rangeColumn + 3).Value = rangeCalc

Set foundDataRange = dataRange.Find(rangeCalc, LookIn:=xlValues)

If Not foundDataRange Is Nothing Then
' the range valus was found
priceOneResult = foundDataRange.Offset(0, 52).Value
priceTwoResult = foundDataRange.Offset(0, 55).Value
Else

priceOneResult = -1
priceTwoResult = -1
End If

Data_Opening.Cells(23, rangeColumn).Value = priceOneResult
Data_Opening.Cells(23, rangeColumn + 3).Value = priceTwoResult

rangeColumn = rangeColumn + 1
Next rangeCalc

Application.ScreenUpdating = True

End Sub

[MikeVol]

Hello @RUPESHRH.
You are using Data_Opening as a variable. But this variable is not initialized anywhere in your procedure. This variable must be declared as an object and only then assigned to the worksheet of the workbook. Perhaps you took an example of this code from somewhere and cut it down thinking that you could adapt it to your needs. Attach a file with an example code to your message in accordance with the forum rules, read the yellow banner at the top of this page. Then it will be clearer to those helping you to help.
Update!
Or:

Dim Data_Opening As Worksheet
Set Data_Opening = ThisWorkbook.Worksheets("Sheet2") 
 ' like Example

Good luck.

[RUPESHRH]

Dear MikeVol

i got the correction by your suggestions

Thanks for Suggestion