copy data from range to range in the same sheet same width & height columns and rows

[abdelfattah]

hi
i need copy data from A1:D TO F1 :I with the same width and height column and row in the same sheet this is my code but it doesn't work well

Sub rr()
Sheets("sheet1").Range("A1:d1000").Copy Destination:=Sheets("sheet1").Range("f1")
Selection.PasteSpecial Paste:=xlPasteColumnWidths
Selection.PasteSpecial Paste:=xlPasteRowHeights
Selection.PasteSpecial Paste:=xlPasteValuesandFormats, Operation:=xlNone, SkipBlanks _
 :=False, Transpose:=False

End Sub

 

[steve the fish]

You wouldnt use selection for the paste special. You would use the

Sheets("sheet1").Range("f1")

as you did for the paste

 

[abdelfattah]

i no know if you mean this

Sub rr()
Sheets("sheet1").Range("A1:d100").Copy Destination:=Sheets("sheet1").Range("f15")
Sheets("sheet1").Range("f15").PasteSpecial Paste:=xlPasteColumnWidths
Sheets("sheet1").Range("f15").PasteSpecial Paste:=xlPasteRowHeights
Sheets("sheet1").Range("f15").PasteSpecial Paste:=xlPasteValuesandFormats, Operation:=xlNone, SkipBlanks _
 :=False, Transpose:=False

End Sub

but still problem

 

[steve the fish]

There is no such thing as row heights?

 

[abdelfattah]

what about width i issue this code to somebody adjusting i'm beginner in vba

 

[steve the fish]

Ok you can do fiddly things with row heights but your paste area is in the same rows as the copy area which isnt going to work. However try this:

Dim copyrng As Range, pasterng As Range, arr, i As Long, fr As Long

With Sheets("Sheet1")
    'set ranges for copy and paste
    Set copyrng = .Range("A1:D100")
    Set pasterng = .Range("F15")
    'get row heights copy range
    ReDim arr(1 To copyrng.Rows.Count)
    For i = LBound(arr) To UBound(arr)
        arr(i) = copyrng.Cells(i, 1).RowHeight
    Next
    'change row height paste range
    fr = pasterng.Cells(1).Row
    For i = fr To UBound(arr) + fr - 1
        .Rows(i).RowHeight = arr(i - fr + 1)
    Next
    'use paste special for the rest
    copyrng.Copy
    pasterng.PasteSpecial Paste:=xlPasteColumnWidths
    pasterng.PasteSpecial Paste:=xlPasteAll
End With