Copy to other locations

[excelnoobhere]

the code below basically takes information from the main page creates new sheets 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 on the new sheets?


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

 

[excelnoobhere]

Can someone help please?

 

[excelnoobhere]

I know this has been here for a while but does anybody have an idea?