Change From Column To Row

I need this code to "Paste" in a row instead of a column, I think I have the copy fixed though not sure how to modify the paste part.

Public Sub CopyData()
Dim dc As String 'destination column
Dim src As Worksheet
Dim dst As Worksheet
Set src = Worksheets("ChartsandGraphs")
Set dst = Worksheets("TrendingData")
'find column on destination sheet, note 19 = Row 19
dc = col(dst.Name, 19, Date)
'if error encountered searching for date, display message and stop
If dc = "0" Then
MsgBox "Error finding column"
Exit Sub
End If
'copy and set values
dst.Range(dc & "19").Value = Date
src.Range("B19:G19").Copy
'This sets the range to paste the values dc = the column the 2 numbers the row ranges
dst.Range(dc & "20:" & dc & "26").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub