Sub copySht1toSht2_v2()
'If Range F (Sht1 D?) has keywords AAAAA and/or BBBBB
'Range B,C,D,E,F,H,I,J,K,M from Sheet1 and paste it to
'Range H,F,P,A,D,I,J,L,B,E of Sheet2
'If Range F (sht1 D?) has any other keywords other than AAAAA and/or BBBBB,
'Range A,B,C,D,E,F,G,K,L,M and paste it to
'Range O,H,F,P,A,D,K,B,G,E of Sheet2
Dim lr, x, a As Integer
Dim ws1, ws2 As Worksheet
Dim rTrgt As Integer
Dim aSrc1(), aSrc2(), aDst1(), aDst2() As Variant
Set ws1 = Sheets("Sheet1")
Set ws2 = Sheets("Sheet2")
lr = ws2.Cells(Rows.Count, 1).End(xlUp).Row + 1
ReDim aSrc1a(10)
ReDim aSrc2a(10)
aSrc1 = Array("B", "C", "D", "E", "F", "H", "I", "J", "K", "M")
aSrc2 = Array("A", "B", "C", "D", "E", "F", "G", "K", "L", "M")
aDst1 = Array("H", "F", "P", "A", "D", "I", "J", "L", "B", "E")
aDst2 = Array("O", "H", "F", "P", "A", "D", "K", "B", "G", "E")
rTrgt = InputBox("Enter Row Number")
If ws1.Cells(rTrgt, "D") = "AAAAA" Or _
ws1.Cells(rTrgt, "D") = "BBBBB" Then
For x = 0 To 9
aSrc1a(x) = ws1.Cells(rTrgt, aSrc1(x)).Value
Next x
For a = 0 To 9
ws2.Cells(lr, aDst1(a)) = aSrc1a(a)
Next a
Else
For x = 0 To 9
aSrc2a(x) = ws1.Cells(rTrgt, aSrc2(x)).Value
Next x
For a = 0 To 9
ws2.Cells(lr, aDst2(a)) = aSrc2a(a)
Next a
End If
ws2.Cells(lr, "N").Value = ws2.Cells(lr - 1, "N") + 1
'ws2.Cells(lr, "N").Value = rTrgt
End Sub