Problemas con macro de búsqueda

Hola, disculpa que te lo diga así, pero recién me di de alta en este foro, necesito ayuda urgente con una macro de un proyecto que debo entregar mañana, la macro se supone debe buscar en una columna en especifico y por medio de un InputBox me debe de buscar dicha agrupación, pero con cada paso que doy, siempre me indica el error 424, y en caso de querer cambiarlo me indica el 438, te adjunto la macro que estoy usando, y gracias de ante mano por tu ayuda.
Sub Busqueda()
I = 6
K = 6
Grupo = InputBox("Ingrese el grupo a buscar")
While ActiveSheet.Cells(I, 1) <> ""
If ActiveSheet.Cells(I, 2) = Grupo Then
For J = 1 To 454
ActiveSheet.Cells(K, J) = Sheet.Add.After.Cells(I, J)
Next J
K = K + 1
End If
I = I + 1
Wend
End Sub