Copy specific cells at random rows

[JorgenKjer]

Is there anyone who can help with a code?

I want to select a random cell in column Aand in that row copy the values ​​in columns A: C and E: G and I: J

In this example it is row 4 but it might aswell be row 10 so the code should take into account random rows depending onthe active cell in column A.

Hope this makes sense

Greetings Jorgen

 

[JorgenKjer]

https://www.dropbox.com/home/Mr. Excel?preview=Copy+specific+cells+at+random+rows.xlsx

 

[JorgenKjer]

I've tried to create a code that can execute what I need, but I think it must be possibleto make it smarter
Does anyonehave a suggestion?

Sub offset_2()

Range (ActiveCell.offset(0, 0), ActiveCell.offset(0, 2)).Select
Selection.Copy
Selection.offset(3, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues

Range(ActiveCell.offset(-3, 4), ActiveCell.offset(-3, 6)).Select
Selection.Copy
Selection.offset(3, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues

Range(ActiveCell.offset(-3, 4), ActiveCell.offset(-3, 5)).Select
Selection.Copy
Selection.offset(3, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues

End Sub

 

[Fluff]

How about

Sub JorgenKjer()
   With ActiveCell
      .Offset(3).Resize(, 3).Value = .Resize(, 3).Value
      .Offset(3, 4).Resize(, 3).Value = .Offset(, 4).Resize(, 3).Value
      .Offset(3, 8).Resize(, 2).Value = .Offset(, 8).Resize(, 2).Value
   End With
End Sub

 

[JorgenKjer]

Hi Fluff
I am sure Imust have misunderstood how to use your code. However, I have tried to add somelines to the code and only the first active cell is copied. What am I doingwrong?
Greeting Jorgen

Sub JorgenKjer()
With ActiveCell
.offset(3).Resize(, 3).Value = .Resize(, 3).Value
.offset(3, 4).Resize(, 3).Value = .offset(, 4).Resize(, 3).Value
.offset(3, 8).Resize(, 2).Value = .offset(, 8).Resize(, 2).Value
End With

Selection.Copy
Selection.offset(3, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues

End Sub

 

[Fluff]

You don't need to add anything to the code.
Simply select a cell in col A & run the code "as-is"

 

[JorgenKjer]

Hi Fluff
You are right
Once again,you have come to my rescue
Thank you
Greeting Jorgen

 

[Fluff]

You're welcome & thanks for the feedback