First time poster and I have tried searching all the forums to see if I could grab a piece of code to do what I am trying to do
I have no vba coding background other then what i can find and tweak to get to work.
Here is my Dilema ....
I have sheet1 and need to transpose to summary sheet in same workbook only specific cells.
For example from sheet 1 I need C7,C11,C12,D16,D17,D18 and D22 copied to summary sheet across
the first blank line below A8 .
I tried to use a learning macro to accomplish this but of course all it does is over write the original data.
Here is what I recorded below in the code tags which might give some insight where I am trying to place the values.
Sub Macro99()
'
' Macro99 Macro
'
Range("C7").Select
Selection.Copy
Sheets("summary").Select
Range("A8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Sheet1").Select
Range("C11").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("summary").Select
Range("B8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Sheet1").Select
Range("C12").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("summary").Select
Range("G8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Sheet1").Select
Range("D16").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("summary").Select
Range("C8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Sheet1").Select
Range("D17").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("summary").Select
Range("D8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Sheet1").Select
Range("D18").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("summary").Select
Range("E8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Sheet1").Select
Range("D22").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("summary").Select
Range("H8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Sheet1").Select
End Sub
Display More
I appreciate any help so I can learn how to get things done on my own
All the best,
Lew