Copiar valores de columnas a otro libro

Con este código puedo copiar datos a la hoja 2 del mismo libro
Private Sub CommandButton2_Click()
'pasar datos a otro libro
Dim Col As Integer
'abrir el archivo
'busca últ col con datos según fila 8
'copia los datos a partir de la columna 4
Col = Sheets("Hoja2").Range("IV8").End(xlToLeft).Column + 1
If Col < 4 Then
Col = 4
End If
'selecciona el rango a copiar
ActiveSheet.Range("G8:H98").Copy Destination:=Sheets("Hoja2").Cells(8, Col)
End Sub
Consulta: Como hago para que los datos los copie a otra hoja "Hoja2" de otro libro "Libro2".