Copy diff cells in next worksheet

[gssachin]

HI,

I want to copy diff cells (i.e. B2, D99 & E99) to another sheet in Column A2, B2 & C2 and every time it will get updated below (not overwrite) i.e. a3, b3, c3 etc

I write following code but need to short one

Sub Macro1()


Dim wss As Worksheet, wsf As Worksheet
Set wss = Sheets("VAC_EML (3)")
Set wsf = Sheets("DETAILS")


Application.ScreenUpdating = False
Application.Goto Reference:="R2C3"
Worksheets("VAC_EML (3)").Range("B2").Copy
Sheets("DETAILS").Select
Range("a" & Rows.Count).End(xlUp).Offset(1).Rows.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Worksheets("VAC_EML (3)").Range("D99").Copy
Sheets("DETAILS").Select
Range("B" & Rows.Count).End(xlUp).Offset(1).Rows.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Worksheets("VAC_EML (3)").Range("E99").Copy
Sheets("DETAILS").Select
Range("C" & Rows.Count).End(xlUp).Offset(1).Rows.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False




End Sub

Please help for this...

 

[Fluff]

How about

Sub gssachin()
   With Sheets("DETAILS").Range("A" & Rows.Count).End(xlUp).Offset(1)
      .Value = Sheets("VAC_EML (3)").Range("B2").Value
      .Offset(, 1).Resize(, 2).Value = Sheets("VAC_EML (3)").Range("D99:E99").Value
   End With
End Sub

 

[gssachin]

Thank Boss

 

[Fluff]

You're welcome