Sub EFG()
Dim rng As Range, rng2 As Range
Set rng = Range("C1").End(xlDown)
Set rng2 = rng.End(xlToRight)
Range(rng(1, 2), rng2(1, 0)).Value = rng.Value
End Sub

--
Regards,
Tom Ogilvy


"Darin Kramer" wrote:

Hi There,

Im looking for VB that goes to cell C1, then goes down column C until it
hits a cell with information in it. Select that cell and copy and paste
it all the way to the right until it hits another cell in that row....

ANy ideas most welcome!!!

Regards

D



*** Sent via Developersdex http://www.developersdex.com ***