Cambios Rangos cambios DAm

Hola DAM Me facilitaste la Siguiente macro

Sub reem()
' por DAM
For i = 2 To Range("L" & Rows.Count).End(xlUp).Row
que = Cells(i, "J")
rep = Cells(i, "L")
Range("A:A").Replace _
What:=que, _
Replacement:=rep, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
MatchCase:=False, _
SearchFormat:=False, _
ReplaceFormat:=False
Next
MsgBox "Cambio finalizado", vbInformation, "Buscar y Reemplazar"
End Sub

Esta Perfecta solo que quisiera que me explicaras como cambiar el rango apra remplazar

en este caso es la columna A del la hoja activa si yo quisiera que fuera la clumna B de otra hoja por ejemplo :la hoja llamada "costos"

Gracias