Hi, i've wrote a code with loops to try and copy data between 2 times.
here it is
Sub Test2()
i = 1
j = 1
Set vType = ActiveSheet.Cells(i, "A")
Set vCelli = ActiveSheet.Cells(i, "B")
Set vCellc = ActiveSheet.Cells(i, "C")
Set vCriti = Sheet5.Cells("3", "A")
Set vCritc = Sheet5.Cells("3", "B")
Set vCur6 = Sheet6.Cells(j, "A")
Set vType6 = Sheet6.Cells(j, "B")

vCur6.Value = vCellc.Value
vType6.Value = vType.Value
Do
If vCelli.Value >= vCriti.Value And vCellc.Value <= vCritc.Value Then

Do
If IsEmpty(vCur6) Then
vCur6.Value = vCellc.Value
vType6.Value = vType.Value
Else
j = j + 1
Set vCur6 = Sheet6.Cells(j, "A")
Set vType6 = Sheet6.Cells(j, "B")
End If
Loop Until IsEmpty(vCur6)
i = i + 1
Set vType = ActiveSheet.Cells(i, "A")
Set vCelli = ActiveSheet.Cells(i, "B")
Set vCellc = ActiveSheet.Cells(i, "C")
Else
i = i + 1
Set vType = ActiveSheet.Cells(i, "A")
Set vCelli = ActiveSheet.Cells(i, "B")
Set vCellc = ActiveSheet.Cells(i, "C")
End If
Loop Until IsEmpty(vCelli)

End Sub
Now my first Problem is that for the if statment with the and i cannot get the <= and >= to work properly is i use as is written in the code at the moment then it only give me a couple of value out of 10 even though they are all between the dates, also is i change it so they both are >= then it gives me every value but the first one. Can anyone tell me where i'm going wrong.
Thanks for all the help