Looking for help on this to see if i can find a faster way.
What it does is takes the number that is entered in the "stock in" sheet and adds it to the corresponding cell in the "Master Stock Sheet Hidden" then moves on to the next cell until it gets to the end of the 3000 cells.
But it takes for ever to enter the stock.

What i would like it to do is if the "stock in" sheet cell contains stock input, then match the stock codes between both sheets and then add the stock to the "Master Stock Sheet Hidden" in the corresponding cell.

Bellow is what i am currently using any help advice would be great.


Sub StockIn()
'
' StockIn Macro
'
With Application
.Application.ScreenUpdating = False
.Calculation = xlManual
.EnableEvents = False
End With
Dim a As Long
Dim b As Long
Dim answer As Long
Dim myrow As String
Dim r As Integer
For r = 6 To 3000
myrow = "G" & r
a = Sheets("Stock In").Range(myrow)
b = Sheets("Master Stock Sheet Hidden").Range(myrow)
answer = a + b
Sheets("Master Stock Sheet Hidden").Range(myrow) = answer
Sheets("Stock In").Range(myrow).ClearContents
Next r
ActiveWorkbook.Save
MsgBox "Stock Added"
With Application
.Application.ScreenUpdating = True
.Calculation = xlAutomatic
.EnableEvents = False
End With
'
End Sub