Copiar celdas con macro según criterio

hola estimados:

tengo la siguiente duda, a ver si me ayudan tengo una macro que me permite copiar los valores de la columna J cada vez que aparece la palabra "TOTALES" en la columna D, sin embargo, necesito que estos valores se ordenen a partir de la celda Y6, Y7, Y8...en fin cada vez que J sea positivo, y en celdas X6, X7, X8...si son negativos.

creo que la pregunta se entiende, pero si ejecutamos la macro a continuacion, se entiende mas:

Sub TrasladarTotales

Dim celda As Long
Dim celdaMax As Long
With Hoja3
celdaMax = .UsedRange.Rows.Count
For celda = celdaMax To 2 Step -1
If .Cells(celda, 4).Value = "TOTALES " Then
.Cells(celda, 10).Copy Destination:=.Range("Y6")
End If

End With
End Sub

me ayudan a depurar esta macro, por favor.

gracias.

cesarlito