VBA add up code

[Strooprover]

Hi,

I want to look up a couple of values based on a If then code, for instance:

If Cells(x, 1) = Cells(1,4).Value Then
mycount= mycount + Cells(x,2).Value
End if
Cells(1,5).Value = mycount

Then I want to see if there's a difference between the Values in E1 and F1 (Value of F1 is given), so
Cells(1,6).Value = Cells(1,5).Value - Cells(1,6).Value

But now comes my problem:

I want to adjust the values in Column 2 that came up out my If formula depending on the value in Cells(1,6).

So If the if function resulted in 5 hits I want the difference that showed up in Cells(1,6) divided by 5 AND it has to rounded off to a multiple of 5. When Cells(1,6) is negative it has to make the values lower, with mutiples of 5 and a total that equal to F1.

Can someone help me with this?

Thanks in advance!

 

[Strooprover]

By now, I came up with this, but the Loop and if statements dont work together. Can someone take a quick look and see how I can adjust it?

Sub adding()


Dim ws1 As Worksheet
Dim ws2 As Worksheet


Set ws1 = Sheets("Sheet1")
Set ws = Sheets("Sheet2")


counter = 0
i = 1
For x = 1 To 5
If ws1.Cells(x, 1) = ws1.Cells(1, 5) Then
ws1.Cells(x, 1).Copy Destination:=ws.Range("A" & i)
ws1.Cells(x, 2).Copy Destination:=ws.Range("B" & i)


  counter = counter + ws.Range("B" & i).Value
   i = i + 1
  
End If
Next x


If counter < ws1.Range("F1") Then
Do Until counter > ws1.Cells("F1").Value
For i = 1 To ws2.Range("B" & Rows.Count).End(xlUp).Row
ws2.Cells(i, 2).Value = ws2.Cells(i, 2).Value + 5
Next i
Loop
End If






End Sub