paste at different locations

[excelnoobhere]

the code below basically takes information from the main page and pastes them into separate sheets depending on the content of A.

it starts pasting them on row 6. it pastes them in the following order
A into A
B into B
O into C

how can I get it to go into the following order?

A into B
B into D
O into C

Sub CopyToNewTempSheet()

        'define varibales
   Dim Cl As Range
   Dim Uniq As String
   Dim Ky As Variant
   Dim Ws As Worksheet


   
   Set Ws = Sheets("Master")
   Ws.AutoFilterMode = False
   With CreateObject("scripting.dictionary")
      For Each Cl In Ws.Range("A3", Ws.Range("A" & Rows.Count).End(xlUp))
         If IsNumeric(Left(Cl, 5)) Then
            Uniq = Mid(Cl, 6, 4)
            If Uniq <> "" Then .Item(Uniq) = Empty
         End If
      Next Cl
      For Each Ky In .Keys
         Ws.Range("A2:O2").AutoFilter 1, "*" & Ky & "*"


'use template and copy it
    Sheets("Template").Select
    Sheets("Template").copy After:=Sheets(Sheets.Count) 'before:=Sheets(3)
    Sheets("Template (2)").Name = Ky
  
    


         Intersect(Ws.AutoFilter.Range.EntireRow, Ws.Range("A:A,B:B,O:O")).copy Range("A6")
      Next Ky
      Ws.AutoFilterMode = False
   End With
End Sub

 

[Fluff]

Duplicate https://www.mrexcel.com/forum/excel...ntent-template-specific-cell.html#post5245412

Please do not post the same question multiple times. All clarifications, follow-ups, and bumps should be posted back to the original thread.
Per forum rules, posts of a duplicate nature will be locked or deleted (rule 12 here: Forum Rules).

If you do not receive a response, you can "bump" it by replying to it again, though we advise you to wait 24 hours before doing and not to bump a thread more than once a day.