Selecting Cells for cut, copy, paste using using variables

[Steve001]

Hello All,

A similar question, to my previous post

Lots of information as this seams to be a popular question but i am unable to get them to work
I am trying to select a range of cells and cut, paste them to a different part of my sheet

Example

select row start to row stop by 3 columns wide

paste this to say S1

hope this makes sense

I am using office 363 & office 2021

Regards

 

[DanteAmor]

Try the following example:

Before the macro:

DANTE AMOR
	A	B	C	D	E	F	G	H	I	J	K
1	A	B	C	D	E	F
2	A2	B2	C2	D2	E2	F2
3	A3	B3	C3	D3	E3	F3
4	A4	B4	C4	D4	E4	F4
5	A5	B5	C5	D5	E5	F5
6	A6	B6	C6	D6	E6	F6
7	A7	B7	C7	D7	E7	F7
8	A8	B8	C8	D8	E8	F8
9	A9	B9	C9	D9	E9	F9
10	A10	B10	C10	D10	E10	F10
11	A11	B11	C11	D11	E11	F11
12	A12	B12	C12	D12	E12	F12
Hoja1

After the macro:

DANTE AMOR
	A	B	C	D	E	F	G	H	I	J	K
1	A	B	C	D	E	F		B5	C5	D5
2	A2	B2	C2	D2	E2	F2		B6	C6	D6
3	A3	B3	C3	D3	E3	F3		B7	C7	D7
4	A4	B4	C4	D4	E4	F4		B8	C8	D8
5	A5				E5	F5		B9	C9	D9
6	A6				E6	F6		B10	C10	D10
7	A7				E7	F7
8	A8				E8	F8
9	A9				E9	F9
10	A10				E10	F10
11	A11	B11	C11	D11	E11	F11
12	A12	B12	C12	D12	E12	F12
Hoja1

Sub cutcopypaste()
  Dim startCol As Long
  Dim startRow As Long
  Dim stopRow As Long
  Dim colWide As Long
 
  startCol = 2      'for example, column B
  startRow = 5
  stopRow = 10
  colWide = 3
 
  Range(Cells(startRow, startCol), Cells(stopRow, startCol + colWide - 1)).Cut Range("H1")
End Sub

 

[Steve001]

Hi Dante,

that works thank you, a question if you can help me

.cut Range ("H1")

what do i need to put so i can use variables to position it

Regards

Steve

 

[DanteAmor]

what do i need to put so i can use variables to position it

Try this:

Sub cutcopypaste()
  Dim startCol As Long
  Dim startRow As Long
  Dim stopRow As Long
  Dim colWide As Long
  
  Dim destinationRow As Long
  Dim destinationCol As Long
  
  startCol = 2      'for example, column B
  startRow = 5
  stopRow = 10
  colWide = 3
  
  destinationRow = 1
  destinationCol = 8
  
  Range(Cells(startRow, startCol), Cells(stopRow, startCol + colWide - 1)).Cut Cells(destinationRow, destinationCol)
End Sub

 

[Steve001]

Thank you Dante

Steve