help for a newbie?

[rizzo999]

Hi
Newbie here, so be gentle please

I have rows of data from our intranet website copied into consecutive rows of a spreadsheet which then needs cell manipulation. Once they are pasted into spreadsheet, I'd like to have a macro which asks the user to select the group of rows, then it will cut & paste certain cells (always from the same columns) to other columns (which will also be fixed) within the selection. As I'm a novice, I normally just create macros by recording... and below is a recorded macro example of what I need, but its for specific rows. The macro shouldnt interfere with any data above. Hope this is clear.

Rows("27:36").Select
Selection.Hyperlinks.Delete
Range("J27:J36").Select
Selection.Cut
Range("B27").Select
ActiveSheet.Paste
Range("G27:G36").Select
Selection.Cut
Range("D27").Select
ActiveSheet.Paste
Range("E27:L36").Select
Selection.ClearContents

Thankyou

 

[mumps]

Try:

Sub CopyRange()
    Application.ScreenUpdating = False
    Dim fRow As Long, lRow As Long
    fRow = InputBox("Enter the row number of the first row.")
    lRow = InputBox("Enter the row number of the last row.")
    Rows(fRow & ":" & lRow).Hyperlinks.Delete
    With ActiveSheet
        .Range("J" & fRow & ":J" & lRow).Cut Range("B" & fRow)
        .Range("G" & fRow & ":G" & lRow).Cut Range("D" & fRow)
        .Range("E" & fRow & ":L" & lRow).ClearContents
    End With
    Application.ScreenUpdating = True
End Sub

 

[rizzo999]

Thankyou soo much. That works perfectly Quick reply too

 

[mumps]

You are very welcome.