Need help copying certain cells from current row

[Jonco]

I want to be able to select contents of cells in columns B thru E in the
current row (the row where the cursor is in) and then paste that info
into cells row 2 coulmn F thru I. Then place the cursor back in the
next row after the original row.

Sounds easy, but it's not for me. Any help would be appreciated.

Jonco

 

[Barb Reinhardt]

Assuming you want to paste the data in the same row as the current row.

Sub CurrentRow() '
'I want to be able to select contents of cells in columns B thru E in the
'current row (the row where the cursor is in) and then paste that info
'into cells row 2 coulmn F thru I. Then place the cursor back in the
'next row after the original row.

Dim aWS As Worksheet
Dim myRow As Long
Dim myRange As Range

Set aWS = ActiveSheet
myRow = Selection.Row
Set myRange = aWS.Cells(myRow, 2).Resize(1, 4)
myRange.Offset(0, 4).Value = myRange.Value
aWS.Cells(myRange.Row + 1, myRange.Column).Select


End Sub

 

[FSt1]

hi
another way.
Sub copyit()
Dim r As Range
Set r = ActiveCell
Range(r, r.Offset(0, 4)).Copy Destination:=Range("F2")
r.Offset(1, 0).Select
End Sub

regards
FSt1