Hi,

I didn't quite follow your logic

A (sheet 2), copy contents of cells N, O & P, columns in the same row, to

This would overwrite the value in column A which I assume you don't want to
do so instead this writes to columns B,C & D in sheet 2.

This should work as worksheet code or in a module

Sub copyit()
lastrows1 = Sheets("Sheet1").Range("A65536").End(xlUp).Row
lastrows2 = Sheets("Sheet2").Range("A65536").End(xlUp).Row
Dim MyRangeS1, MyRangeS2 As Range
Set MyRangeS1 = Sheets("Sheet1").Range("A1:A" & lastrows1)
Set MyRangeS2 = Sheets("Sheet2").Range("A1:A" & lastrows2)
For Each c1 In MyRangeS1
   For Each c2 In MyRangeS2  
       If c1 = c2 Then
           c2.Offset(0, 1).Value = c1.Offset(0, 13).Value
           c2.Offset(0, 2).Value = c1.Offset(0, 14).Value
           c2.Offset(0, 3).Value = c1.Offset(0, 15).Value
       End If
   Next
   Next
End Sub

Mike