The description of the task is too vague to offer a real solution. You can
copy a range from sheet 1 to sheet 4 with the following syntax.

Sheets("Sheet1").Range("A2").Copy _
Sheets("Sheet4").Range("B2")

Or if the data you want to copy is somewhere in a known range:

Dim c As Range
vehiclesno = Range("A1").Value
Set myKnownRange = Sheets(1).Range("A2:A100")
For Each c In myKnownRange
If c.Value = vehiclesno Then
c.Copy Sheets(4).Range("A" & Cells(Rows.Count, 1),End(xlUp).Row)
End If
Next

But to give you code you can use, we would have to know how the data is
organized on sheets 1 - 3, if it is sorted, if vehicle nos are all in the
same column, etc. Remember, we cannot see your worksheets.

"TFMR" wrote:

Dear All,

I have 3 sheets which contains the vehicles no, I want to copy only that
vehicle no. in 4th sheet, which is exist in 3 sheets.

Thanks